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Fischertechnik-computing 


OJJJVjÜM 

uwrrwvr’* 


Neue Anwendungsmöglichkeilen für Ihren 
CPC 464 bieten die Fischertechnik-compu¬ 
ting-Bausätze. 


Simulation von Bewegungsabläufen und 
spielerisches Erlernen von Steuerungen mit¬ 
tels Computer. 


computing-Baukasten für 10 Modelle B< 

Plotter/Scanner 

Trainings-Roboter 

Interface Schneider passend zu allen 3 Artikeln 

incl Software auf Cassette 

computing-Netzgerät 

(zum Betrieb der 3 Artikel erforderlich) 


Bildschirmvorsatz 


\’EL Profi-kunststoffhiilien r TTTxJ-J 

leer, für Ihre Programmkassetten und Disketten im Buchformat 


bringt besseres Bild saubere 
Entspiegelung! 


für Grünmonitor 
Best - Nr 6530 


für Farbmonitor 
Best-Nr 6540 


Datenrecorder MC 3810 

für CPC 664/6128 


Ohne Abbildung. 

Schneider-Monitor- 
Verlängerungskabel 
für CPC 464 

Bes;-Nr 826 

für CPC 664 F 6128 

Best.-Nr. 827 


Joystick 


anschlußfertig inkl. Kabel und 
Netzteil. 

Best-Nr. 836 

78,-DM 


Besonders stabil, 
mit 3 auswechsel¬ 
baren Griffen, 2 
Feuerknöpfen um- 
schaltbar auf Stick 
o Basis. 


NEU 6510 Druckerinterface 


Joystick-Adapter 

Zum Anschluß von 2 Standard- 
Joysticks an Schneider Computer 


Staubschutzhaube 


von Data Media für Schneider 
CPC 464/664 

2 verschiedene Drucker können wahlweise 
betrieben werden. Steuerung über die Soft¬ 
ware, durch Eingabe des jeweiligen 
Druckercodes. 

Mit eigener Stromversorgung. 


t. Grün-Monitor 816 
t. Farb-Momtor 817 
f. Drucker 818 
f CPC 464 819 

f. Floppy 820 
f. 664 
f. 6128 


dk'tronics Lightpen für CPC 464 und 664 U-4-HnTLi-i-4-++ 

Das Werkzeug lür den Grafikprogrammierer: Pixelwe.se Auflösung, volle Ausnutzung der 
Färb- und Gratikmoghchkeiten des CPC, auch für Grunmomtor, umfangreiches Hilfspro¬ 
gramm mit Menuesteuerung über Pictogramme. dadurch kinderleichte Handhabung, 
kompatibel zu DDI-1 und MP1. Komplett mit Handbuch und Hardcopyroutine 


Schneider-Stereo-Kabel 

3,5 mm Klmken-Stecker/ 

5 pol DIN-Stecker. 150 cm lang 
Besl.-Nr. 612 1£ 


Best Nr. 815 

für 3 Drucker 248,- DM 

Best-Nr 6511 


3.5 mm Klinken-Stecker/ 

2 Chinch-Stecker, 150 cm lang 


Diskettenbox für 3”-Disketten [ |"t 

aus antistatischem, schlagfestem Kunststoff, mit transparentem, aufklappbarem und 
abnehmbaren Deckel mit 3 Stützpiatten inkl. Sicntreitem. für 40 Disketten, nicht 
abschließbar. 

Besl.-Ni.840 44,- DM 

dito mit Schloß Beat -Nr. bai 54,-DM 


Druckerkabel 

tue Schneider-Drucker, 150 cm lang 
Best-Nr. 814 79,- 


Data Media MAILORDER 


Bestellen Sie noch heute, Lieferung erfolgt umgehend! Zah 
lung per Vorkasse oder Nachnahme zuzügl. Porto- bzw. Nach 
nahmegebühr (Nachnahme ins Ausland ist nicht möglich). 

Weitere Artikel in unserem Gesamtkatalog. Bitte anfordern (2,- DM für Rückporto beilegen). . 
Data Media GmbH -Mailorder- Ruhrallee 55, 4600 Dortmund, Tel.: (02 31) 12 50 71-3 s 1 ] 
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Für unverlangt eingesandtc Manuskripte 
und Datenträger sowie Fotos übernimmt 
der Verlag keine Haftung. 

Honorare nach Vereinbarung (die Zu¬ 
stimmung zum Abdruck wird vorausge¬ 
setzt). 

Das Urheberrecht für veröffentlichte Ma¬ 
nuskripte liegt ausschließlich beim Verlag. 
Nachdruck sowie Vervielfältigung oder 
sonstige Verwertung von Texten, nur mit 
schriftlicher Genehmigung des Verlages. 
Namentlich gekennzeichnete Fremdbei¬ 
träge geben nicht in jedem Fall die Mei¬ 
nung der Redaktion wieder. 


Clt-t &LAJU 



Nachdem unser erstes Son¬ 
derheft bei den Schneider- 
Anwendern einen hervorra¬ 
genden Anklang gefunden 
hat, wurden Rufe nach ei¬ 
ner Lektüre für die vielen 
Laufwerksbenutzer laut. 

So ist auch unser Untertitel» CP/M-Floppys - Hardware« exakt auf diesen 
Themenkreis zugeschnitten. Das Ziel dieses Sonderheftes ist es, sowohl ein 
Nachschlagewerk als auch eine unbedingt notwendige Arbeitshilfe an die 
Hand zu geben. Hierzu gehört auch die komplette Literaturübersicht für die 
CPC-Rechner. 

Erster Schweipunkt dieses Heftes ist das schier unerschöpfliche Thema CP/M, 
zu dem wir Referenzkarten, Tips und Anwendungen geben. Da CP/M- 
Literatur meist nur dürftig oder kaum zu erhalten ist, dürfte dies einen beson¬ 
deren Leckerbissen darstellen. 

Im Hardwareteil sind besonders die Bastler angesprochen. Wie Sie Zweit¬ 
laufwerke für den CPC im Selbstbau erstellen können, erfahren Sie in die¬ 
ser Sparte. 

Neue, zusätzliche DOS-Befehle und jede Menge Tips, bringen eine effektive 
Nutzung der Floppy. Hierzu haben wir eine Reihe von Hilfsroutinen aufge¬ 
führt. 

Natürlich enthält dieses Magazin auch eine semiprofessionelle Pro¬ 
grammsammlung. Die zweite RAM-Bank wird durch die »Relative Dateiver¬ 
waltung« für den CPC 6128 ausgenutzt. Weitere interessante Programme 
sind z.B. der Terminplaner und der umfangreiche Disk-Monitor. 

Daß die CPC s auch an Rechner wie Apple oder IBM Daten austauschen 
können, erfahren Sie auf den Seiten 68 bzw. 74. 

Alles in allem wieder eine Fülle von Informationen und Programmierhilfen, 
die Sie mit diesem Sonderheft erhalten! Dazu gibt es natürlich unseren 
bekannten Databox-Service, diesmal der Eigenheit der Themen ent¬ 
sprechend, natürlich nur als 3”-Diskettenversion. 


HerzMchst Ihr 
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Christian Widuch 
Chefredakteur 
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Floppy 


Das Formatwunder 

- inzwischen gibt es für alle 
Schneider CPC’s Diskettenlaufwerke 
in den unterschiedlichsten Formaten. 
Neben den von Anfang an 
erhältlichen 3"-Diskstationen, 
behaupten sich auch die 5 Vt"- und 
neuerdings auch 3,5”-Floppylauf- 
werke. Unsere große Übersicht 
gibt Ihnen Aufschluß über die 
am Markt befindlichen Disketten¬ 
laufwerke mit eigenem Controller 6 


Vorsicht Diskette! 

- daß auch eine Diskette gegen 
äußere Einflüsse nicht gefeit ist, 
hat wohl jeder schon mal erfahren. 
Wie Sie sich gegen ungewollten 
Datenverlust schützen können, 
lesen Sie in unserem Bericht über 
Funktionsweise, Herstellung und 
Pflege von Disketten 22 


MC-Tracer 

- das Tool für alle Programmierer! 
Analyse von ROM- und RAM 
sowie MC-Programmen auf 
einfachste Art, mit super¬ 
schnellem Disassembler 58 


VDOS 2.0 

- Erfahrungsbericht über das 
neue Vortex-Betriebssystem 65 


Tips + Tricks 


CPC-Checksummer 
- das unentbehrliche Hilfsmittel 
zum Eingeben von Listings. 
Tippfehler sind nun leicht 
zu lokalisieren! 8 


Randvoll 

- wie kann man die »brach liegenden« 
Disketten-Spuren Nr. 40 - 43 für 
eigene Programme nutzen? 

Man benötigt lediglich einen 
Diskettenmonitor und unseren 
Bericht! 34 


Super Sort 

- der schnelle Tabellensort für 
numerische Tabellen! Komfortabel 
und superschnell, da voll 
Disketten-orientiert 36 


Disc-in 

- das Programm, das volle 
Kompatibilität zum Kassettenbetrieb 
herstellt. Die Floppy kann 
nachträglich initialisiert werden! 38 


YM 


CP/M ist nicht nur eines der 
verbreitetsten Betriebssysteme 
überhaupt, sondern auch eines 
der universellsten. Viele Tips 
zum Umgang mit CP/M (z.B. 
Autostart) sowie ausführliche 
Referenzkarten über Befehle 
und Dienstprogramme erwarten 
Sie. Aufgrund der noch immer 
mangelnden Literatur haben 
Sie so ein komplettes Nach¬ 
schlagewerk für das ganze Jahr. 


Da werden Träume wahr! End¬ 
lich ist es möglich, Schneider 
Computer mit »professionel¬ 
len« PC’s wie z.B. IBM oder 
Apple zu koppeln und Daten¬ 
austausch zu ermöglichen. Wie 
das im einzelnen funktioniert, 
erfahren Sie beim Durchlesen 
der großen Projektserie 
»Kopplungen«. 


Tips und Anwendungen rund 
um die Diskettenlaufwerke sind 
ein großer Schwerpunkt unse¬ 
res Sonderheftes. U.a. präsen¬ 
tieren wir das CPC DOS 3.0, 
das viele neue Befehle zur Ver¬ 
fügung stellt und Ihnen hilft, 
die Floppy noch optimaler nut¬ 
zen zu können. 


In unserer großen Hardware- 
Rubrik gibt es jede Menge Bau¬ 
anleitungen, mit denen nicht 
nur die Einsatzbereiche der 
CPC-Computer wesentlich er¬ 
weitert werden, sondern zusätz¬ 
lich jede Menge Geld gespart 
werden kann. 
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DIR 

- der Disc-Information-Reader 
ist ein tolles Hilfsprogramm, 

mit dem Sie genaue Informationen 
über die einzelnen Files einer 
Diskette erhalten (u.a. Startadresse, 
Länge etc.) 38 

Disk-Manager 

- das unentbehrliche Toolkit zur 
Bearbeitung von Directorys 

und Dateien 39 

Turbo-Dos 

- bringt Ihre Floppy zum Rotieren! 

Die Geschwindigkeit steigt um 
mehr als 20 % 52 


Mehr als nur von A - Z 

- Disketten-Datcinamen einmal 
anders. Die Benennungen von 
Dateien lassen sich auch mit 
Sonderzeichen durchführen 


auf Kassette mit nur einem 
einzigen Befehl! 


56 


CP/M 


66 


Software 


Relative Datei 

- superschnelle Dateiverwaltung 
mit Direktzugriff für 

alle CPC-Rechnerü 

Anisdos intern 

- Analyse und Erklärung der 
Diskettenstruktur sowie des 
File-Handlings unter Amsdos 


10 


23 


Disc-Basic 3.0 

- die ideale Ergänzung für Ihre Floppy! 
20 neue Befehle unterstützen die 
Arbeit mit der DDI-1. Mit 
ausführlicher Beschreibung 

und dokumentiertem Quellcode 24 

Unidat 

- die universelle Dateiverwaltung 

für Ihren 6128. Durch die 
konsequente Ausnutzung der 
zweiten RAM-Bank ist eine 
schnelle Verarbeitung sowie 
großer Speicherplatz 
gewährleistet! 44 


Disc-Mon 

- kompletter Diskettenmonitor mit 

vielen Features! 53 

Backlist 

- Backup-Kopien von Kassette 
auf Disk und umgekehrt! 

Durch Menueführung einfach 

zu bedienen. 72 


Terminkalender 

- der elektronische Datenkalender 
für alle Rechner. Nicht nur 

für die Vergeßlichen unter uns 
interessant!! 103 

Disc-Tape 

- Erstellen von Sicherheitskopien 
eigener Programme von Diskette 


Wordstar - voll ausgeschöpft 

- das bekannte Textverarbeitungs¬ 
programm Wordstar bietet 
Möglichkeiten, die bisher 
unentdeckt geblieben sind. 

Die Wordstar-Excursion bietet 
neben Anpassungen an den CPC 
viele Tips zur effektiven Nutzung 
des universellen Textsystems. 

- Wordstar auf dem CPC 

- Wordstar und DDT 

- Wordstar anpassen 

- Tips zu Wordstar 90 


Hardware 


Der FDC 

- wir offenbaren Ihnen Geheimnisse 
aus dem Innenleben Ihres 
Diskettenlaufwerkes. Funktion und 
Arbeitsweise des Floppy-Disc- 
Controllers werden anschaulich 
dargestellt, bisher ungeklärte 
Fragen beantwortet 18 


Kopplung von CP/M 2.2-Rechnern 

- der CPC als Terminal, am Beispiel 
des Apple II. Komplettes Schaltbild 
und Kommunikationssoftware 
zum Nachbau! 68 


Programmaustausch mit 
MS-DOS-Rechnern 

- als Ergänzung zum CP/M 2.2- 
Kopplungsprojekt« erhalten Sie 
Hinweise, wie Daten zwischen CPC 
und MS-DOS-Rechnern (z.B. IBM) 
ausgetauscht werden können 74 


5 am CPC 

- zum Selbstbau: Wie man 5 Vi”- 
Diskettenlaufwerke als Zweit¬ 
laufwerk an die Schneider CPC’s 
anschließen kann. Mit kompletter 
Schaltung und ausführlicher 
Dokumentation 76 


3,5” am CPC 

- auch 3,5"-Floppvstationen lassen 
sich problemlos als Zweitlaufwerke 
anschließen. Große Speicher¬ 
kapazität und geringe Kosten, 
das sind die Selbstbauvorteile 82 


Turn-Key 

- der CPC als Turn-Key-System! 

Ein kleiner Hardwareeingriff ist 
alles, was Sie benötigen, 
um Ihren CPC zum Autostart 
zu bewegen 50 


Auf einen Blick, alles im Griff 

- die CP/M-Referenzkarten 
beinhalten die wichtigsten Befehle 
und Funktionen von CP/M 2.2. 

Sie sind übersichtlich aufgebaut 
in Gruppen unterteilt und ersparen 
somit das mühsame Blättern 
im Handbuch! 61 


Setup 

- die optimale Anpassung des 
gesamten CP/M-Systems sowie 
der Dienstprogramme 86 


CP/M schneidern 

- stricken Sie sich Ihr eigenes CP/M! 
Mit vielen Hinweisen zur 
Betriebssystem-Anpassung 
an persönliche Bedürfnisse 106 


Faster than PIP 

- das rasante Kopierprogramm 
für Diskettensoftware! 
Sicherheitskopien in Sekunden¬ 
schnelle mit zwei Laufwerken 108 




... 


Joyce 


Der letzte Schliff 

- dBase II - die Startdiskette 
für den Joyce! Tips zur Anpassung 
des Dateisystems 88 


Joyce-Dateiverwaltung mit Jetsam 
- Mallard-Basic bietet bekanntlich 
hervorragende Eigenschaften zur 
Dateiverwallung. Die Jetsam-Befehle 
werden eingehend erläutert, 
am Beispiel der Direktzugriffs¬ 
und Index-Dateien die Funktionen 
beschrieben 112 


Allgemeines 


Editorial 


CPC-Literatur 

- die gesamte Literatur auf einen Blick! 
Übersichtlich aufgebaut, 
mit Kurzbeschreibung und 
Bezugsquelle 79 


Gehirn 

- ein biochemischer Computer 120 

Inserentenverzeichnis 122 
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Floppy 




Marktübersicht 






Im folgenden haben wir eine Marktübersicht der verschiedenen 
Diskettenstationen mit eigenem Controller zusammengestellt. 
Zu jeder Floppy finden Sie die entsprechenden technischen Da¬ 
ten sow ie eine Kurzbeschreibung. Bei der Preisangabe ist zu be¬ 
achten, daß wir von der kleinstmöglichen Gerätekonfiguration 
ausgegangen sind. 

Zeichenerklärung: 

• • • - gut 

• • - befriedigend 

• - verbesserungsbedürftig 


Die Schneider DDI-1 im 3 Formal ist nach wie vor 
das Standardlaufwerkfür die CPC 's. Das seltene 3"- 
Format hat sich, allen Kritikern zum Trotz, in der 
Praxis bewährt und besticht vor allem durch die hohe 
Gesch windig keil. 


Typ 

DDI-1 

FI-S 

11L-S 

FDD 

DSB-35 


Format 

3" 

5 '4” 

3.5" 

5 !4" 

3.5“ 


Speicherkapazität 

180 KB 

704 KB 

704 KB 

780 KB 

1 MB 


Computer 

464 

464/664/6128 

464/664/6128 

464/664 

464/664/6128 


Tracks 

40 

80 

80 

40/80 

80 


Directory 

Einträge 

64 

64* 

64* 

72 

99* 


Preis 

798.- 

1 198 - 

998- 

1598- 

798- 


Handbuch 

• • 

• • • 

• • • 

• 

• • 


DOS 

Amsdos 

VDOS 2.0 

VDOS 2.0 

FDOS 

Amsdos plus 

DSB51 Zusatz¬ 
kontroller* 

* 

Maximal 
erweiterbar bis 

2 

3 

3 

4 

2 

- 

Vertrieb 

Schneider 

Vortex 

Vortex 

Data Media 

Data Service 

Cu man a 


Sonstiges 

Logo. 

CP/M 2.2 
werden mitge¬ 
liefert 

CP/M wird 
mitgeliefert. 

*Mit Progr. 

PARA läßt 
sich die An¬ 
zahl erhöhen 

CP/M wird 
mitgeliefert. 

*Mit Progr. 

PARA läßt 
sich die An¬ 
zahl erhöhen 

CP/M wird 
mitgeliefert 

DSB51 System 



6 cpc 


2 '86 Sonderheft 




















i s kette n I aufwe r ke 








Die Data Media-Floppy sorgte aufgrund der hohen Speicherkapazität und der 
40/80-Umschallung für einiges Aufsehen. Die Erwartungen scheinen sich 
allerdings nicht in Verkaufszahlen auszudrücken, die Data Media-Station 
begleitet noch ein recht stiefmütterliches Dasein. 


SSS.3.0 


DSB51-S 


5 V4 


180 KB 


1 MB 


464/664/6128 


464/664 


40/80 


4 /» 


848- 


• • 


der DDF 1, das am häufigsten benut¬ 
zte Speichermedium. Das 5 VV'-Format hat 
eine große Speicherkapazität und die Daten¬ 
träger sind wesentlich günstiger als die 3”- 
Disketten. 


Ein weiteres Laufiverk im 5 W-Format 
kommt von Cumana. Mildem neuen 
Betriebssystem DSB-51 werden 
hervorragende Leistungen er¬ 
zielt, eine weitere Alternative 
zur DDF I. 


Anisdos 

2 

Cumana 

Nur als 
Zwei tl aufwerk 


Amsdos plus 
DSB51 Zusatz¬ 
kontroller 

2 


Data Service 
Cumana 

DSB51 System 


Von Cumana ist 
ebenfalls ein 3,5"- 
Laufwerk erhältlich, das 
mit dem DSB-SFBetriebssy- 
stern von Data Service läuft. 

Große Leistung bei niedrigem Preis, 
das sind die Vorteile der DSB-35. 
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Hinweis-Programmservice 

Zu den bekannten Symbolen der Rechnertypen sind noch 
Piktogramme für Kassetten- bzw. Diskettenbetrieb hinzu¬ 
gekommen. 

Es ist nämlich ohne weiteres möglich, daß ein Programm auf 
dem 664 oder 6128 funktioniert, zum einwandfreien Arbeiten 
jedoch einen Kassettenrekorder benötigt. 

In diesem Heft finden Sie auch wieder die Prüfsummen für 
den CPC-Checksummer. Denken Sie daran, daß diese 
Prüfsummen (in eckigen Klammern) nicht mit eingetippt 
werden dürfen. 

(TM) 


Checksummer für alle CPC 


für 464-664-6128 LJ R 


Vorgehensweise: Zuerst entsprechende Version des Check¬ 
summers (464 oder 664/6128) eintippen und mit RUN starten. 
Es wird hierdurch ein Maschinenprogramm erzeugt, welches 
auf Kassette oder Diskette abgespeichert werden muß. Da¬ 
nach Lader eintippen und starten. 

Haben Sie den CPC-Checksummer geladen und über den 
RSX-Befehl 'ION' eingeschaltet, so wird eine Quersumme 
nach jedem Betätigen der ENTER-Taste ausgegeben. Sie 
brauchen also nur noch die ausgegebene Zahl mit der ent¬ 
sprechenden im Heft zu vergleichen. Stimmen die beiden 
Werte nicht überein, haben Sie sich in der Zeile vertippt und 
können sie sofort korrigieren. Der Checksummer existiert in 
zwei Versionen. Die Versionen für 664 und 6128 sind 
identisch. Bei einigen 664-Versionen wurde jedoch ein ROM 
der Version 1 verwendet. Bei diesem ROM kann es zu Schwie¬ 
rigkeiten kommen, deren Grund uns noch nicht bekannt ist. 
Sobald wir den Fehler beheben können, werden wir Sie davon 
in Kenntnis setzen. Außerdem stellt der Checksummer noch 
den Befehl ’IOFF' bereit, mit dem die Kontrollsummenaus- 
gabe abgeschaltet werden kann. 464-Benutzer haben auch 
noch die Möglichkeit, sich mit ’ICHECK, Parameter’ ein kom¬ 
plettes Listing mit Prüfsummen auf Bildschirm oder Drucker 
ausgeben zu lassen. 'Parameter spezifiziert hierbei den Aus¬ 
gabekanal. Es empfiehlt sich, mit WIDTH vorher die Druck- 
breite festzulegen. 

Der ICheck-Befehl gilt bisher nur für den CPC 464. 


Listing für 464 

5 REM checksummer Version :464 
10 t=&A000 

20 READ a$:IF a$="xxx" THEN CLS:PRINT"press play": 
CALL &BB06:SAVE"checkmc",b,&A000,&108:PRINT"fertig 
": END 

30 POKE t,VAL("&"+a$):t=t+1 
40 GOTO 20 

50 DATA 21, 09 ,aQ,01,0d,a0,c3,d1,bc,00,00,00,00,18, 

a0,c3,2c,a0,c3,31,a0,c3,46,a0,4f,ce,4f,46,c6,43,48 

,45,43,cb,00,00,00,00,cf,98,aa,c3,a3,a0,21 

60 DATA 29 ,a0,18,03,21 ,26,a0,a7,28,06,cd,00,b9,c3, 

96,dd,11,3a,bd,01,03,00,ed,b0,c9,4f,cd,00,b9,Od,28 

,08,0d,20,ea,dd,7e,02,18,04,7b,11,01,00,cd,a2,c1 

70 DATA cd,a3,e7,4e,23,46,2b,78,b1,c8,cd,3c,c4,e5, 

09,e3,cd,63,el,cd,75,a0,e1,18,ea,e5,cd,b8,a0,e3,cd 

,93,a0,cd,96,f2,e3,cd,f0,a0,cd,4e,c3,e1 

80 DATA 7e,a7,c8,cd,93,a0,cd,4e,c3,18,f5,3a,24,ac, 

d6,08,47,7e,a7,c8,cd,45,e1,23,10,f7,c9,cd,26,a0,f5 

,c5,d5,e5,cd,b8,a0,22,24,a0,cd,f0,a0,e1,d1,c1,f1,c 

9,eb,1b,af,32,23,aO,47,67,6f,13,1a,d6,30,38,04,fe, 

0a,38,f6,1a,a7,c8,4f,3a 

90 DATA 23,a0,a7,79,20,07,eb,cd,41,dd,eb,c8,4f,fe, 
22,20,08,3a,23,a0,2f,32,23,aO,79,ad,07,6f,09,13,18 
,db,3e,20,cd,5c,c3,3e,5b,cd,5c,c3,cd,79,ee,3e,5d,c 
3,5c,c3,00,00,00,00,00,00,00,00,00,xxx 

Listing für 664, 6128 

5 REM checksuramer Version :664/6128 
10 t=&A000 

20 READ a$:IF a$="xxx" THEN CLS:PRINT"press play": 
CALL &BB06:SAVE"checkmc",b,&A000,&108:PRINT"fertig 
": END 

30 POKE t,VAL{"&"+a$):t=t+1 
40 GOTO 20 

50 DATA 21 ,09,a0,01 ,0d,a0,c3,d1,bc,00,00,00,00,15, 
aO,c3,24,a0,c3,29,a0,4f,ce,4f,46,c6,00,00,00,00,cf 
,02,ac,c3,9b,a0,21,21,a0,18,03,21,1e 
60 DATA a0,a7,28,06,cd,00,b9,c3,00,dd,11,5e,bd,01, 
03,00,ed,bO,c9,4f,cd,00,b9,Od,28,08,Od,20,ea,dd,7e 
,02,18,04,7b,11,01,00,cd,a6,c1,cd,64,e8,4e,23,46,2 
b,78,b1,c8,cd,72,c4,e5,09,e3,cd,54,e2,cd,6d,a0,e1 , 
10 ,ea 

70 DATA e5,cd,b0,a0,e3,cd,8b,a0,cd,52,f3,e3,cd,e8, 
a0,cd,98,c3,e1,7e,a7,c8,cd,8b,a0,cd,98,c3,18,f5,3a 
,09,ac,d6,08,47,7e,a7,c8,cd,22,e2,23,10 
80 DATA f7,c9,cd,1e,a0,f5,c5,d5,e5,Cd,b0,a0,22,1c, 
aO,cd,e8,a0,e1,d1,c1,f1,c9,eb,1b,af,32,1b,a0,47,67 
,6f,13,1a,d6,30,38,04,fe,0a,38,f6,1a,a7,c8,4f,3a, 1 
b,a0 

90 DATA a7,79,20,07,eb,cd,2e,de,eb,c8,4f,fe,22,20, 
08,3a,1b,a0,2f,32,1b,a0,79,ad,07,6f,09,13,18,db,3e 
,20,cd,a8,c3,3e,5b,cd,a8,c3,cd,44,ef,3e,5d,c3,a8,c 
3,00,00,00,xxx 

Lader für 464, 664, 6128 
10 MEMORY &9FFF 
20 LOAD"lcheckmc",&A500 
30 CALL &A500:jON 
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Aktuelle DATA BECKER Buchhits 



Das sollte Ihr erstes Buch zum CPC-6128 
sein! CPC-6128 für Einsteiger ist eine sehr 
leicht verständliche Einführung in Hand¬ 
habung und Einsatz des CPC-6128, die kei¬ 
nerlei Vorkenntnisse voraussetzt, Dazu eine 
Einführung in BASIC, wobei Sie eine kom¬ 
plette Adressenverwaltung erstellen, die 
Sie anschließend nutzen können. Unent¬ 
behrlich für jeden CPC-6128 Einsteiger! 
CPC-6128 für Einsteiger, 215 Seiten, 

DM 29,- 



Rund um den CPC 464 viele Anregungen 
und wichtige Hilfen! Von Hardwareaufbau, 
Betriebssystem, BASIC-Tokens, Anwendun¬ 
gen der Windowtechnik und sehr vielen 
interessanten Programmen bis zu einer 
umfangreichen Dateiverwaltung, Sound¬ 
editor, komfortablem Zeichengenerator und 
kompletten Llstings spannender Spiele bie¬ 
tet dieses Buch eine Fülle von Möglichkei¬ 
ten. Diese Tips kommen von DATA BECKER 
Spezialisten! 

CPC 464 Tips & Tricks, 271 Seiten, 

DM 39,- 



Speziell für den Hobbyelektroniker, der 
mehr aus seinem CPC machen möchte! 
Von nützlichen Tips zur Platinenherstellung 
über Adreßdecodierung, Adapterkarten und 
Interfaces bis zu EPROM-Programmier- 
board und -Programmiernetzteil oder 
Moforsteuerung für Gleich- und Schritt¬ 
schaltmotoren werden machbare Erweite¬ 
rungen ausführlich und praxisnah be¬ 
schrieben. Am besten gleich anfangen! 
CPC Hardware-Erweiterungen, 

445 Seiten, DM 49,- 
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Tips & Tricks für alle CPC Benutzer! 
Menuegenerator, Maskengenerafor, BASIC- 
Befehlserweiterungen, Programmierhilfen 
wie Dump, BASIC-Zeile von BASIC aus 
erzeugen, wichtige Systemroutinen und 
deren Nutzung, nützliche Routinen des 
BASIC-Interpreters, Beschleunigung von 
Programmen, relokative Maschinenpro¬ 
grammierung u.v.m. 

CPC Tips & Tricks Band II, 250 Seiten, 

DM 39,- 


8«|CKM»NN ENHISCH 
6BTI5 SIBCEBS 

CPC 

664/6128 

INTERN 
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Ein Muß für jeden, der sich professionell 
mit dem CPC 664 oder dem CPC 6128 
beschäftigt. Einführung in das System, den 
Prozessor, das Gate Array, den Video-Con¬ 
troller, den Schnittstellenbaustein 8255, 
den Soundchip, die Schnittstellen. Mit 
Disassembler und ausführlichen Kommen¬ 
taren zu den Routinen von Interpreter und 
Betriebssystem. Ein Superbuch, wie alle 
Titel der INTERN-Reihe! 

CPC 664/6128 Intern, 456 Seiten, 

DM 69- 



DFÜ für Jedermann mit dem CPC bietet 
eine ausführliche und verständliche Ein¬ 
führung in das Gebiet der Datenfernüber¬ 
tragung: was ist DFÜ, BTX, DATEX, Mailbox, 
alles über Modems und Koppler. Begriffs¬ 
erklärung: Orlginate, Answer, Halt-Duplex 
usw. eine serielle Schnittstelle am CPC, 
RS-232/V.24 simuliert, Mailboxsoftware - 
selbstgestrickt, Posfbestimmungen u.v.m. 
DFÜ für Jedermann zum CPC, 

303 Seiten, DM 39,- 



Von den Grundlagen der Maschinenspra¬ 
cheprogrammierung über die Arbeitsweise 
des Z80-Prozessors und einer genauen 
Beschreibung seiner Befehle bis zur Benut¬ 
zung von Systemroutinen ist alles ausführ¬ 
lich und mit vielen Beispielen erklärt, im 
Buch enthalten sind Assembler, Disassem¬ 
bler, Einzelschritt-Simulator und Monitor als 
komplette Anwenderprogramme. So wird 
der Einstieg in die Maschinensprache 
leichtgemacht! 

Das Maschinensprachebuch zum CPC 
464, 333 Seiten, DM 39,- 



Eine beispielslose Sammlung von Tips und 
Tricks, mit denen Sie alle Vorzüge von 
TURBO PASCAL erfolgreich nutzen können. 
Natürlich mit vielen Anwendungen und 
konkreten Programmierhilfen tür den opti¬ 
malen Einsatz dieser erstaunlich vielseiti¬ 
gen Programmiersprache. Ein gelungenes 
Buch, das reichlich Anregungen vermittelt 
und damit zu einer wirklichen Fundgrube 
für jeden Anwender wird. 

TURBO PASCAL Tips 8r Tricks, 243 Seiten, 
DM 49- 



Einsteiger bis zum Profi. Natürlich mit aus¬ 
führlicher Kommentierung der DOS-Routi- 
nen, einer äußerst komfortablen Dateiver¬ 
waltung, einem hilfreichen Disk-Manager. 
Dazu eine Fundgrube verschiedener Pro¬ 
gramme und Hilfsroutinen, die das Buch 
für jeden Floppy-Anwender zur Pflichtlek¬ 
türe machen! 

Das Floppy-Buch zum CPC, 353 Seiten, 
DM 49,- 


Endlich CP/M beherrschen! Von grundsätz¬ 
lichen Erklärungen zu Speicherung von 
Zahlen, Schreibschutz oder ASCII, Schnitt¬ 
stellen und Anwendung von CP/M-Hilfspro¬ 
grammen. Für Fortgeschrittene: Fremde 
Dlsketfenformafe lesen. Erstellen von Sub- 
mit-Dateien u.v.m. Dieses Buch berück¬ 
sichtigt die Versionen CP/M 2.2 und 3.0 für 
Schneider 464, 664 und 6128. 

Das CP/M-Trainlngsbuch zum CPC, 

260 Seiten, DM 49,- 


DATA WELT 4/86 


Randvoll mit Superartikeln 
zu ATARI ST, COMMODORE, 
CPC. Großer ST-Software- 
führer, jede Menge Quick¬ 
tips und aktuelle Tips & 
Tricks. 

DATA WELT 4/86 ab 
17. März am Kiosk 


DATA 



Merowingerstr. 30 • 4000 Düsseldorf Tel. (0211) 310010 



Wer PEEKS und POKES zum CPC 464 ken¬ 
nen und anwenden will, der findet hier 
umfassende Information! Sie reicht vom 
Adreßbereich des Prozessors über 
Betriebssystem und Interpreter bis hin zur 
Einführung In die Maschinensprache. Dazu 
Programmierhilfen, Routinen sowie reich¬ 
lich Material zu den Themen Grafikfunk¬ 
tionen, Massenspeicherung und Peri¬ 
pherie, Tricks und Formeln in BASIC 
und RAM-Pages! 

Peeks & Pokes zum CPC, 

180 Seiten, DM 29,- 
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Das Standard-Basic der CPC Computer ermöglicht nur das 
Arbeiten mit sogenannten sequentiellen Dateien, die mit 
Hilfe von OPENIN bzw. OPENOUT eröffnet und dann der 
Reihe nach gelesen bzw. beschrieben werden können. Das 
Merkmal einer sequentiellen Datei ist also, daß erst auf den 
nächsten Datensatz zugegriffen werden kann, wenn alle vor¬ 
angegangenen Datensätze bereits bearbeitet wurden. 
Äquivalent hierzu sind die vom Basic her bekannten Befehle 
READ, DATA und RESTORE. 

Die Organisation einer sequentiellen Datei erweist sich daher 
als äußerst unpraktisch, wenn es zu sortieren gilt oder die Mög¬ 
lichkeit des wahlfreien Zugriffs auf jeden Datensatz gegeben 
sein soll. Genau hier setzt die relative Dateiverwaltung an, 
denn sie erlaubt es, frei auf jeden Datensatz zuzugreifen. Je¬ 
der Datensatz hat eine Nummer, mit der man ihn ganz ein¬ 
fach anwählen kann. Das entspricht genau jenem Prinzip, 
welches bei Arrays Anwendung findet, daher lohnt sich der 
Einsatz der relativen Dateiverwaltung erst, wenn man große 
Datenmengen speichern will, die die Kapazität des freien 
RAM-Speichers überschreiten würden. Beispiele hierfür gibt 
es genug, z.B. die Schallplatten-, Musikkassetten-, Bierdeckel¬ 
oder Briefmarkensammlung. Da kommt man schnell auf 
Stückzahlen, bei denen man sich fragen muß, ob man 
eventuell den RAM-Speicher des CPC aufstocken oder ein 
paar der geliebten Sammelobjekte abschaffen sollte, um den 
Rest nun endlich mit dem Computer verwalten zu können. 
Doch hier bietet sich glücklicherweise eine vernünftige Alter¬ 
native an, nämlich die relative Dateiverwaltung. 

Hat man sich für diese Möglichkeit entschieden, ist es not¬ 
wendig, den Aufbau der relativen Datei im voraus zu planen. 
Zuerst wird die Struktur eines Datensatzes festgelegt. Jeder 
Datensatz kann maximal acht Felder mit einer Länge von ins¬ 
gesamt nicht mehr als 512 Zeichen enthalten. Wenn wir als 
Beispiel die Schallplattensammlung heranziehen, so könnte 
ein Datensatz folgendes Aussehen haben: 

Feld/Länge/Bezeichnung 

1 20 Interpret bzw. Band 

2 30 Titel 

3 30 LP 

4 5 Spieldauer 


In Feld Nr. 1 wird der Name des Interpreten bzw. der Band 
eingetragen, das nächste Feld nimmt den Titel des Liedes aut, 
dann kommt der Name der LP und als letztes die Spieldauer. 
Für jedes Feld muß man die maximale Länge mit angeben. 
Die Bezeichnungen dienen später als Gedächtnisstützen, sie 
werden bei der Ein- und Ausgabe der einzelnen Datensätze 
jeweils über dem dazugehörigen Feld mit ausgedruckt. 

Zum Schluß muß man dann noch die maximale Anzahl der 
zu reservierenden Datensätze angeben, wobei man genügend 
Platz für zukünftige Erweiterungen berücksichtigen sollte. Ist 
die von Ihnen gewünschte Anzahl jedoch größer als die vom 
Computer aufgrund der freien Diskettenkapazität errechnete 
Zahl, dann kann Ihnen auch die relative Dateiverwaltung 
nicht mehr weiterhelfen. 

Zur Bedienung des Programmes: 

Das Programm RELDAT ermöglicht den Umgang mit relati¬ 
ven Dateien mit Hilfe eines zehnzeiligen Menues. Sämtliche 
Menuepunkte erwarten, daß die Arbeitsdiskette sich im Lauf¬ 
werk A befindet, d.h. unter anderem, der Benutzer wird nicht 
ständig daraufhingewiesen, die Diskette einzulegen und fer¬ 
ner ist das Arbeiten mit einem Zweitlaufwerk nicht möglich. 

Die Menuepunkte im einzelnen: 

1. Datei errichten 

Definition der Dateistruktur, s.o. 

2. Datei löschen 

Von RELDAT erzeugte Dateien können hier mit der Eingabe 
des Namens wieder von der Diskette gelöscht werden. 

3. Datei laden 

Datei wird geöffnet, d.h. für die Bearbeitung vorbereitet. 

4. Datei sichern 

Datei wird geschlossen. Unbedingt notwendig vor Disketten¬ 
wechsel oder nach Abschluß der Arbeit mit einer geöffneten 
Datei. 
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Listing Maschinencodelader 


# ; 
' ,, 





5. Datei sortieren 

Die Datei kann nach einem Feld in auf- bzw. absteigender 
Reihenfolge sortiert werden. 


6. Directory zeigen 

Der Übersichtlichkeit wegen, werden nur die von RELDAT 
erzeugten Dateien angezeigt. 

7. Daten eingeben 

Es können Datensätze an- bzw. eingefügt oder geändert wer¬ 
den. Die Eingabe des Kürzels ‘'dt” bringt das aktuelle Datum 
in das gewünschte Feld 

8. Daten auflisten 

Man kann entweder alle Datensätze nacheinander ausgeben 
lassen, oder mit Hilfe einer Maske all diejenigen Datensätze 
finden, auf die diese Maske paßt. 

Die Maske kann alles oder nur Teilstücke aus dem gewünsch¬ 
ten Feld enthalten. Variable Teile mit konstanter Länge kön¬ 
nen mit Hilfe von Fragezeichen gleicher Anzahl, und varia¬ 
ble Teile mit variabler Länge, an die sich ein Komma an¬ 
schließt, können mit einem Sternchen ersetzt werden. 

9. Daten löschen 

Beliebige Datensätze können gelöscht werden. Die nachfol¬ 
genden Datensätze rücken in die frei gewordenen Plätze 
ein. 

0. Zurück zum Basic 

Eine geöffnete Datei wird selbständig geschlossen, danach 
wird das Programm abgebrochen. 

Zu den Programmen: 

RELDUMP erzeugt den Maschinencodeteil und speichert ihn 
auf einer Diskette ab, danach wird es nicht mehr benötigt. 

RELDAT lädt den von RELDUMP erzeugten Maschinencode 
nach und initialisiert diesen, deshalb niemals das Programm 
ein zweites Mal mit RUN sondern nur mit GOTO 1030 starten. 

Thomas Fippl 


100 
110 
120 
130 
1 40 
150 
1 60 
170 
180 
190 
200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
21 2 
213 
21 4 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 


MEMORY &97FF:adr=HIMEM+1 
FOR z = 200 TO 292 
sum=0:PRINT CHR$(30)z; 

FOR n=0 TO 7:READ byte$ 

b=VAL("&"+byte$):POKE adr,b 

sum={sum XOR b)+b 

adr=adr+1:NEXT:READ s 

IF s < >sum THEN PRINT"Error":STOP 

NEXT:SAVE"reldat".b.&9800.743 


DATA 21 ,2d 
DATA 98,01 
DATA 00,00 
DATA c3,ea 
DATA 99,c3 
DATA 7e,9a 
DATA 0b,af 
DATA 07,ee 
DATA 99,07 
DATA 82,9a 
DATA 07,4f 
DATA 53,c5 
DATA 43,4f 
DATA 55,d4 
DATA 49,d4 
DATA c2,cd 
DATA c2,12 
DATA e7,9e 
DATA Oe,00 
DATA 13,a7 
DATA 99,71 
DATA 23,cl 
DATA a7,fe 
DATA de,ad 
DATA e7,9e 
DATA fb,e1 
DATA c6,cd 
DATA 21,1a 
DATA 96,22 
DATA 96,c9 
DATA cd,21 
DATA af,77 
DATA 99,21 
DATA 4e,c6 
DATA c3,10 
DATA 21,99 
DATA c3,00 
DATA 09,5c 
DATA 30,02 
DATA 3c,cb 
DATA 3a,9d 
DATA 1c,7b 
DATA 9f,a8 
DATA 4e,c6 
DATA db,99 
DATA cd,c2 
DATA 8d,da 
DATA cd,98 
DATA c3,12 
DATA f7,df 
DATA 21,00 
DATA 23,d5 
DATA e7,9e 
DATA 00,dd 
DATA 19,ed 
DATA f6,ff 
DATA e6,fe 
DATA 4c,28 
DATA 66,c6 
DATA 02,18 
DATA 2a,Of 
DATA e7,9e 
DATA d0,23 
DATA c3,1e 
DATA cl,cd 
DATA cd,1b 
DATA Oe,00 
DATA 03,18 
DATA 02,0e 
DATA e5,d5 
DATA 4f,06 
DATA 5e,23 
DATA 59,44 
DATA ei,c9 


,98,df,4e,98 
,13,98,c3,d1 
,00,51 ,98,c3 
, 98 , c3,62,99 
,fb,99,c3,4a 
,c3,c4,9a,2a 
,0f,0c,01,03 
,98,07,66,99 
,ff,99,07,4e 
,07,c8,9a,07 
,50,45,ce,43 
,46,49,4e,c4 
,52,c4,47,45 
,49,54,45,cd 
, 00,df,36,98 
, 3a,00,96,0e 
,9a,eb,cd,ca 
,cd,af,ce,21 
,11 ,19 ,a7,06 
,28,30,d5,c5 
,23,70,23,73 
,d1,0c,10,e9 
,80,38,17,eb 
,d7,d5,fd,e5 
,06,10,cd,92 
, 18 ,c6,79,f5 
,13,99,fl,32 
,96,22,06,96 
,08,96,3e,ff 
,df,39,98,c9 
,00,96,b6,ca 
,23,77,23,b6 
,00,00,22,Of 
, cd,13,99,cd 
,9a,ed,4b,e7 
,21,00,96,50 
,00,e5,6f,26 
,29,42,a7,ed 
,19,2d,29,10 
,Id,3a,9f ,a8 
,a8,85,47,e1 
,e6,0f,fe,0a 
,5f,14,c9,36 
,3a,11,96,cb 
,df,3c,98,c9 
,cd,eb,cd,ca 
,cd,14,ce,cd 
,d6,Oe,00,30 
,9a,cd,c2,d8 
,3f,98,c9,cd 
,96,b6,28,41 
,d5,a6,c4,55 
,d1,19,22,0c 
,6e,02,29,11 
,5b,Of,96,22 
,ed,52,28,02 
,2a,0a,96,d1 
,01,3c,32,11 
,cd,db,99,18 
,37,22,21,99 
,96,4e,23,56 
,d4,1e,99,e1 
,4e,23,56,21 
,99,df,42,98 
,21,01,96,b6 
,9a,71,23,73 
,79,32,Oe,96 
, f7,3a,05,96 
,05,ei,04,b8 
,21,1a,96,78 
,00,09,4e,23 
,56,eb,a7,ed 
,4d,2a,0c,96 
,df,45,98,c9 


,21,0f,450 
,bc,00,1420 
,73,98,538 
,c3,89,1826 
,9a,c3,1588 
,00,b8,1462 
,77,98,896 
,07,8d,794 
,9a,07,1084 
,0d,c6,1402 
,4c,4f,970 
,52,45,856 
,d4,50,1260 
,45,4d,1212 
,c9,cd,756 
,01,a7,998 
,cd,11,1516 
,e7,9a,1310 
,10,1a,366 
,cd,23,1152 
,23,72,1000 
,3a,18,1016 
,86,77,1256 
,d1,21,1022 
,d3,10,1 050 
, 21 ,66,770 
,04,96,1244 
,21,2c,428 
,32,00,910 
, cd, c 3,1 01 6 
,d7,99,1312 
,c4,55,784 
,96,21,616 
,b6,d1,1358 
,9a,22,1160 
,1e,00,646 
,00,16,726 
,52,2c,1012 
,f5,cb,778 
,84,4f,1132 
,50,59,682 
,d8,3a,772 
,00,21,852 
,bf,c3,1304 
,28,1b,1326 
,cd,cd,1532 
, 83,d6,192 8 
,01,0d,574 
,4b,18,674 
,c1,cd,1966 
,23,77,788 
,99,21 ,1072 
,96,26,906 
,e9,9a,1164 
,0f,96,1138 
,e6,7f,1430 
,19,cb,1342 
,96,21,714 
,39,Oe,716 
,f5,17,750 
,e5,21,860 
,f1 ,1f ,1386 
,e7,a0,1288 
,c9,cd, 1 058 
,28,cf,1438 
,23,72,912 
,c9,Oe,956 
,dd,46,588 
,38,ea,952 
,3d,87,1334 
,46,23,396 
,42,50,528 
,19,eb,1136 
,cd,c1,1450 


I 







f \ 




i 


Sonderheft 2 ’86 


CPC 11 


Software 















Software 


iiiiiimmmimmmmmiiiiiiiiiimm.mim... 


11 MM IIM I 


MIIMIMMMI ....IIIIIIMIMMIII 


274 

DATA 

cd,21,01,96,b6,ca,d7,99,1362 


1510 

DATA 

Function,2,21,9,21,0 

[1625] 

275 

DATA 

23,77,cd,1b,9a,79,96,23,964 


1520 

DATA 

Status,2,21,2,6,1 

[1 7273 

276 

DATA 

cd,f9,db,28,15,38,b0,f5,l406 


1 530 

DATA 

Help,2,79,24,24,1 

[1 0783 

277 

DATA 

47,79,90,c4,77,9a,c1,3e,1092 


1 540 

: 


[1741 

278 

DATA 

20,12,13,10, fc,18,99,06,664 


1550 

FOR n=1 TO 10 

[10121 

279 

DATA 

00,4f,ed,b0,18,92,df,48,842 


1560 

READ 

func$ 

[6973 

280 

DATA 

98,c9,cd,c1,cd,3a,00,96,1048 


1 570 

LOCATE#2,1 ,n+1 

[11571 

281 

DATA 

a7,ca,d7,99,21,05,96,cb,1272 


1 580 

PRINT#2,CHR${24)" "RIGHT$(FNst$(n),1) 

[24491 

282 

DATA 

5e,Oe,04,c2,12,9a,34,2a,376 


" "CHR$(24)" "func$: 


283 

DATA 

06,96,4e,23,46,23,23,eb,1204 


1590 

y=256 

-n *1 6 

[661 1 

284 

DATA 

09,eb,72,2b,73,22,06,96,708 


1600 

MOVE 

8,y 

[6351 

285 

DATA 

2a,08,96,dd,56,03,dd,5e,958 


1610 

DRAWR 24,0,0 

[550] 

286 

DATA 

02,eb,7e,12,23,13,cd,f9,1222 


1620 

NEXT 


[3501 

287 

DATA 

db,a7,c4,77,9a,ed,53,08,934 


1630 

DATA 

Datei errichten 

[15001 

288 

DATA 

96,c3,10,9a,df,4b,98,c9,1476 


1640 

DATA 

Datei loeschen 

[9871 

289 

DATA 

cd,c2,cd,47,3a,05,96,a7,1702 


1650 

DATA 

Datei laden 

[731 1 

290 

DATA 

ca,d7,99,2a,08,96,eb,1a,1458 


1660 

DATA 

Datei sichern 

[1317] 

291 

DATA 

77,13,4f,23,73,23,72,eb,834 


1670 

DATA 

Datei sortieren 

[959] 

292 

DATA 

09,22,08,96,c3,10,9a,00,848 


1680 

DATA 

Directory zeigen 

(1219 1 





1690 

DATA 

Daten eingeben 

(8231 



listing 


1700 

DATA 

Daten auflisten 

(20931 



1710 

DATA 

Daten loeschen 

[1898] 





1720 

DATA 

Zurueck zu BASIC 

(9101 

100 



[3451 

1730 

: 


(1741 


K u 
li® 


' : ;v 


110 ’* Rel. Datei- * [361J 

120 '* Verwaltung * [19581 

130 ' *************** [345 1 

140 '* (c)1986 • 14531 

150 ' * by Th.Fippl * 15701 

160 '* 

170 '* 6336 Solms * [5931 

180 **************** [3451 

190 ' [117] 

1000 iDISC rMEMORY &95FF [28121 

1010 LOAD"reldat.bin",&9800 [30801 

1020 CALL &9800 [477] 

1030 ON BREAK GOSUB 1830 [561] 

1040 SPEED KEY 15,1 [12641 

1050 DEFINT m,n,r:DEFSTR i [6581 

1060 DEF FNdt$(t,n)=RIGHT$("0"+FNst$(t),n) (18691 

1070 DEF FNst$(m)=MID${STR$(m),2) [1058] 

1080 DEF FNlo(m)=UNT(m)M0D 256 [403] 

1090 DEF FNhi(m)=UNT(m)\256 [1106] 

1100 DEF FNdp(m)=PEEK(m) + 256*PEEK(m+1 ) [1612] 

1110 bef1$=CHR$(&F2)+CHR$(&F3)+CHR$(&7F)+C [1554] 

HR$(& 10) 

1120 bef2$ =CHR$(&F0)+CHR$( &F1 )+CHR$(&7F) [17771 

1130 header$=STRING$(128,CHR$(0)) [15531 

1140 blank$=SPACE$(255) [23831 

1150 GOSUB 1280 [859] 

1160 ' [117] 

1170 '•** Functions-Auswahl *** [2144] 

1180 ' [117] 

1190 LOCATE#2,5,13 [8991 

1200 PRINT#2,"Ihre Wahl: "CHR$(143)CHR$(8) [1647] 


1210 

i=INKEY$ 

[5601 

1740 

INPUT#3,"Datum (Tag,Mon,Jahr)";t,m,j 

(27701 

1220 

IF i<"0"OR i>"9"GOTO 1210 

[1421 1 

1750 

IF j<100 THEN j =j +1 900 

(1 445 1 

1230 

PRINT#2,i;:CLS:PRINT 

(20921 

1760 

dat $ =FNdt$(t,2) + "."+FNdt$(m,2) + "."+FN 

(37001 

1240 

IF i="0"GOTO 6600 

[622] 

dt$(j 

i ,4) 


1250 

ON VAL(i)GOSUB 3510,4130,4210,4450,45 

(3737J 

1770 

CLS #3 

(371 ] 

20,4940,5020,5850,6440 


1780 

PRINT#3,"Datum: "dat$ 

(1 326 1 

1260 

PRINT CHR$(7); 

(11751 

1790 

PRINT#3 

1316] 

1270 

GOTO 1160 

13071 

1800 

PRINT#3,"Datei :" 

[10801 

1280 

* 

[117] 

1810 

PRINT#3,"belegt:" 

(1041 1 

1290 

'*** Bildschirm-Maske *** 

[27221 

1820 

PRINT#3,"frei 

(13021 

1300 

1 

[117] 

1830 

RETURN 

(5551 

1310 

MODE 2:BORDER 2 

[1093 1 

1840 

' 

[1171 

1320 

FOR n=1 TO 4 

[863 1 

1850 

'*** INPUT String *** 

(12371 

1330 

READ win$,x1,x2,y1,y2,pn 

[15631 

1860 

• 

[117] 

1340 

PAPER pn:PEN 1-pn 

(1241 1 

1870 

back$=STRING${t,".") 

(800 ] 

1 350 

x=x2-x1+1 

[631 1 

1880 

text$="" 

(537] 

1 360 

LOCATE xl-1,y1-1 

[71 21 

1890 

xp=POS(#0):xpo=xp 

[1874 1 

1370 

PRINT CHR$(150)CHR$(24)win$CHR$(24)ST 

(3876 ) 

1900 

yp=VPOS(#0) 

(8021 

RING$(x-LEN(win$),CHR$(154))CHR$(156) 


1910 

GOSUB 2180 

[855] 

1380 

FOR y=y1 TO y2 

(1286 1 

1920 

* 

[174] 

1390 

LOCATE xl-1,y 

[636 ] 

1930 

GOSUB 2250 

[8651 

1 400 

PRINT CHR$(149) 

11036] 

1940 

IF i=CHR$(13)GOTO 1970 

[12521 

1410 

LOCATE x2+1,y 

[9871 

1950 

GOSUB 2490 

[8491 

1 420 

PRINT CHR$(149) 

[10361 

1960 

GOTO 1930 

(3771 

1430 

NEXT 

[3501 

1970 

IF LOWER$(text$)="dt"THEN text$=dat$ 

[24691 

1440 

LOCATE Xl-1,y2+1 

[704] 

1980 

PRINT:CLS#4 

[3351 

1450 

PRINT CHR$(147)STRING$(X,CHR$(1 54))CH 

[24051 

1990 

RETURN 

[5551 

R$(153 ); 


2000 

1 

[1171 

1460 

WINDOW xl,x2,y1,y2 

[16721 

2010 

' *** INPUT Zahl *** 

[91 51 

1 470 

WINDOW SWAP n 

(1061 1 

2020 

• 

[117 J 

1480 

CLS#n:NEXT 

[6271 

2030 

t=LEN(.STR$ (thi )) -1 

[18221 

1 490 

WINDOW SWAP 1 

[826] 

2040 

back$=STRING$(t," ") 

[8921 

1500 

DATA Console,24,79,2,21,0 

[14921 

2050 

xpo=POS(#0) 

(1519 1 
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2060 

yp=VPOS(#0) 


1802] 

2070 

GOSUB 2180 


[855] 

2080 

text$="":xp=xpo 


(12591 

2090 

: 


[174] 

2100 

GOSUB 2250 


[865] 

2110 

IF i=CHR$(13)GOTO 2140 


[1290 ] 

2120 

IF i>="0"AND i<="9"THEN 

GOSUB 2490 

[2031 ] 

21 30 

GOTO 2100 


[359 ] 

21 40 

tval=VAL{text$) 


[14131 

2150 

IF tval<tlo OR tval>thi 

GOTO 2080 

(3204 ) 

2160 

PRINT:CLS#4 


[335] 

2170 

RETURN 


[555] 

2180 

1 


[117] 

2190 

Help “* 


[971 ] 

2200 

f 


[117] 

2210 

PRINT#4,"[DEL3 links,[CLRJ rechts,["C 

[5720] 


-- --, ' ~-—•"**“'* w f / J 

or rechts,[ENTER] beenden" 

2220 RETURN [555] 

2230 PRINT#4,"["CHR$(&F0)"3 Cursor nach ob [8687] 
en,["CHR$(&F1)" ] Cursor nach unten,[DEL] a 
endern,[ENTER] weiter" 

2240 RETURN [555] 

2250 ' [117] 



2260 

' INPUT *“ 

[671 ] 

2270 

' 

[117] 

2280 

txt=LEN(text$) 

[1212] 

2290 

LOCATE xpo,yp 

[1408] 

2300 

PRINT text$+MID$(back$,txt + 1 ) 

[1964 J 

2310 

LOCATE xp,yp 

[9351 

2320 

CALL &BB8A 

[558] 

2330 

i=INKEY$ 

(560 ] 

2340 

IF i=""GOTO 2330 

[785] 

2350 

nn = INSTR(bef1 $,i) 

[1032] 

2360 

CALL &BB8D 

1555} 

2370 

ON nn GOTO 2390,2410,2430,2460 

(1652 ] 

2380 

RETURN 

[555] 

2390 

xp=MAX(xp-1,xpo) 

[1620] 

2400 

RETURN 

[555] 

2410 

xp=MIN(xp+1,xpo+txt) 

[2367] 

2420 

RETURN 

[555] 

2430 

x=xp-xpo 

[376] 

2440 IF x THEN text$=LEFT$(text$,x-1)+MID$ 

(text$,x+1):xp=xp-1 

[3872] 

2450 

RETURN 

[555] 

2460 

x=xp-xpo 

[376] 

2470 IF x<txt THEN text$=LEFT$(text$,x)+MI 
D$(text$,x+2) 

[3685] 

2480 

RETURN 

[5551 

2490 

IF nn THEN RETURN 

[1564 ] 

2500 

x=xp-xpo 

[376 ] 

2510 IF x<t THEN text$=LEFT$(text$,x) + i+MI 
D$(text$,x+1):xp=xp+1 

[6201 ] 

2520 

RETURN 

(555) 

2530 

' 

[117] 

2540 

Dateiname “* 

[1686] 

2550 


[117] 


2560 PRINT"Dateiname ([ENTER] beenden): "C 
HR$(24); 

2570 t=8:GOSUB 1840 
2580 PRINT CHR$(24) 

2590 IF text$=""THEN RETURN 
2600 file$=text$+".RDF" 

2610 !FIND,@file$ 

2620 flag=PEEK(&960E) 

2630 RETURN 
2640 * 

2650 ERROR *“ 

2660 ' 

2670 ON er GOTO 2690,2710,2730,2750,2770 
2680 RETURN 

2690 PRINT"<<< Datei besteht bereits >>>" 
2700 RETURN 

2710 PRINT"< < < Datei ist noch geoeffnet >> 
>" 

2720 RETURN 

2730 PRINT"<<< Datei nicht gefunden >>>" 
2740 RETURN 

2750 PRINT"*<< Datei ist geschlossen >>>" 
2760 RETURN 

2770 PRINT"<<< Datei ist voll >>>" 

2780 RETURN 
2790 ' 

2800 RECORD *** 

2810 ' 

2820 bytes=rec‘reden 
2830 blk=INT(bytes/51 2) 

2840 rst=bytes-512*blk 
2850 [RECORD,blk,rst 
2860 RETURN 
2870 * 

' “ * GET 1 “ * 


2880 
2890 ' 

2900 FOR f=0 TO felder-1 
2910 [GET,f,@i 
2920 meml$(f)=i 
2930 NEXT:RETURN 
2940 ' 

2950 ' PUT 1 *♦* 

2960 ' 

2970 FOR f=0 TO felder-1 
2980 i=mem1$(f) 

2990 |PUT,f,@i 
3000 NEXT:RETURN 
3010 ' 

3020 ' “* GET 2 “* 

3030 ’ 

3040 FOR f=0 TO felder-1 
3050 [GET,f,@i 
3060 mem2$(f)=i 
3070 NEXT:RETURN 
3080 ' 

3090 ' PUT 2 »** 

3100 ' 

3110 FOR f=0 TO felder-1 
3120 i=mem2$(f) 

3130 [PUT,f,@i 
3140 NEXT:RETURN 
3150 ' 

3160 ' “* MAX(1 ,2) »“ 

3170 ' 

3180 IF LOWER$(meml$(fld))>LOWER$(mem2$(fl 
d))GOTO 3260 
3190 RETURN 
3200 ' 

3210 ’ *“ MIN(1 ,2) »** 

3220 ' 

3230 IF LOWER$(meml$(fld))<LOWER$(mem2$(fl 
d))GOTO 3260 
3240 RETURN 
3250 : 

3260 ex=m:rec=ex 
3270 GOSUB 2790 
3280 GOTO 2870 
3290 ' 

3300 ' Maske *“ 

3310 ' 

3320 CLS 

3330 FOR f=1 TO felder 
3340 LOCATE 1,3+ftab(f-1) 

3350 PRINT CHR$(24)" "fbez$(f)": "CHR$(24) 

3360 xl=flen(f)\56+1 

3370 x2={(flen{f)MOD 56)>0) 

3380 ftab(f)-ftab(f-1)+x1-x2 
3390 NEXT:RETURN 
3400 ' 


[3352] 

[1 323 ] 

[996] 

[1128] 

[1 367 ] 

[1 350 ] 

[974] 

[555] 

[117] 

[916] 

[117] 

[1161 ] 

[555] 

[3250] 

[555] 

[4234] 

[555] 

13559] 

[555] 

[4361 ] 

[555 ] 

[2862] 

[555] 

[117] 

[1043] 

[117] 

[1811] 

12704} 

[1408] 

[863] 

[555] 

[117] 

[965] 

[117] 

[1536] 

[1354] 

[840] 

[940] 

[1173 

(5861 

[117] 

[1 536] 

[1329] 

[627] 

1940] 

[117] 

[813] 

[117] 

[1 536] 

[1 354 ] 

[631 ] 

[940] 

[117] 

[562] 

[1173 

[1 536] 

[1 3773 

[627] 

[940] 

[117] 

[1230] 

1117] 

[2446] 

[555] 

[117] 

11232] 

[117] 

[2387] 

1555] 
[174] 
[948] 
[829] 
[389] 
[117] 
[11421 
[117] 
[91 ] 
[1263] 
[1657 ] 
[1918 ] 
[1205] 
[1616] 
[1 983] 
[940] 
[117] 
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4050 ' 

4060 LOCATE#3,9,3 

4070 PRINT# 3,UPPER $(name $)TAB(17); 

4080 LOCATE#3,8,4 

4090 PRINT#3,belrec;TAB(14); 

4100 LOCATE#3,8,5 

4110 PRINT#3,maxrec-belrec;TAB(14); 
4120 RETURN 
4130 ' 

4140 ' 

4150 ' 

4160 GOSUB 2530 

4170 IF text$=”"THEN RETURN 

4180 IF flag=0 THEN er=3:GOTO 2640 

4190 !ERA,@file$ 

4200 RETURN 


Datei loeschen 


3410 '*** Datensatz eingeben *** 

3420 ' 

3430 PRINT CHR$(30)"Satznummer:"rec 

3440 GOSUB 2790 

3450 FOR f=0 TO felder-1 

3460 LOCATE 1,ftab(f)+4 

3470 t=flen(f+1):GOSUB 1840 

3480 IF text$=""THEN RETURN 

3490 meml$(f)=text$ 

3500 NEXT:RETURN 
3510 ' 

3520 '*** Datei errichten *** 

3530 ' 

3540 IF PEEK(&9600)THEN er=2:GOTO 2640 

3550 GOSUB 2530 

3560 IF text$=""THEN RETURN 

3570 IF flag THEN er=1:GOTO 2640 

3580 name$=text$ 

3590 PRINT"Anzahl der Felder pro Datensatz 
(max. 8 ): "; 

3600 tlo=1:thi=8:GOSUB 2000 
3610 PRINT 

3620 PRINT"Nr./Laenge/Feldname" 

3630 maxlen=51 2:£elder=tval 
3640 FOR n=1 TO felder 
3650 thi=MIN(255,maxien) 

3660 PRINT n"("FNst$(thi)") "; 

3670 GOSUB 2000 
3680 LOCATE 4,yp 

3690 PRINT USING" ### ";tval; 

3700 maxlen=maxlen-tval 
3710 flen(n)=tval 
3720 t=40:GOSUB 1840 
3730 fbez$(n)=text$ 

3740 NEXT:PRINT 
3750 j FIND 

3760 bytes=PEEK(&960E)*1024-51 2 

3770 reclen=512-maxlen 

3780 maxrec=INT(bytes/reclen) 

3790 belrec=0 

3800 PRINT"Anzahl der Datensaetze (max. "F 
Nst$(maxrec)"): 

3810 thi=maxrec:GOSUB 2000 
3820 maxrec=tval 
3830 bytes=maxrec»reden 
3840 blk=INT(bytes/255) 

3850 rst=bytes-255»thi 
3860 OPENOUT file$ 

3870 FOR n=1 TO 4 
3880 PRINT#9,header$; 

3890 NEXT 

3900 FOR n=1 TO blk 
3910 PRINT#9,blank$; 

3920 NEXT 

3930 PRINT#9,LEFT$(blank$,rst); 

3940 CLOSEOUT 
3950 |OPEN,@file$ 

3960 POKE & 96 OA, FNlo (reden) 

3970 POKE &960B,FNhi (reden) 

3980 POKE &9612,FNlo(maxrec) 

3990 POKE &9613,FNhi(maxrec) 

4000 FOR n=1 TO felder 
4010 |ITEM,@fbez$(n),flen(n) 

4020 NEXT 
4030 • 

4040 '*** Statuszeile *** 


(117] 
(641 ] 
(593] 
(648] 
11205] 
(651 ] 
(2310] 
(555] 
[117] 
12470] 
[117] 
(865] 
[1128] 
[1802] 
[1422] 
[555] 


Hl —* 

4210 

1 

[117] 

Sk •/ 

V 4220 

'*** Datei laden *** 

[2029] 


Ul, 42 30 


[117] 

[1 457] 

4240 

IF PEEK(&9600 )THEN er=2:GOTO 2640 

[2101] 

k" 4250 
4260 
M 4270 
4280 

GOSUB 2530 

IF text$=""THEN RETURN 

IF flag=0 THEN er=3:GOTO 2640 
name$=text$ 

[865] 

[1128] 

[1802] 

[1187] 

[117] 

4290 

!OPEN,@file$ 

1881 ] 

[2463] 

4300 

felder=PEEK(&9605) 

[1899] 

[829] 

4310 

PRINT"Dateistrucktur: " 

[2145] 

11536] 

4320 

PRINT"Nr./Laenge/Feldname" 

[1602] 

[1398] 

4330 

p=& 961A 

[784] 

[1449] 

4340 

FOR n=1 TO felder 

[1167] 

[1128] 

4350 

!EMIT,@i 

11 309] 

[947] 

4360 

m=FNdp(p+2)-FNdp(p) 

[15841 

[940] 

4370 

PRINT n ;USING" ### " + i;m 

[1798] 

[117] 

4380 

fbez$(n)=i 

[1150] 

[2343] 

4390 

flen(n)=m 

[1278] 

[117] 

4400 

p=p+2:NEXT 

[1 394] 

[2101 ] 

4410 

maxrec=FNdp(&961 2) 

[1405] 

[865] 

4420 

belrec=FNdp(&9614) 

[1152] 

[1128] 

4430 

reclen=FNdp(&960A) 

[1843] 

[1615] 

4440 

GOTO 4030 

[5391 

[1187] 

4450 


[117] 

[3938] 

4460 

'*** Datei sichern *** 

[1649] 

[1842] 

4470 

4480 

IF PEEK(&9600)=0 THEN er=4:GOTO 2640 

[117] 
[2014] 

[361 ] 

4490 

POKE &9614,FNlo(belrec) 

[1 632] 

[1602 ] 

4500 

POKE &9615,FNhi(belrec) 

[1909] 

[2043 ] 

4510 

ICLOSE:RETURN 

[1120] 

[1167] 

4520 


[117] 

[1795 ] 

4530 

'*** Datei sortieren *** 

£2114] 

[1150] 

4540 

1 

[117] 

[875] 

4550 

IF PEEK(&9600)=0 THEN er=4:GOTO 2640 

[2014] 

[1006 ] 

4560 

PRINT"[1] aufsteigende" 

(24863 

[2085] 

4570 

PRINT"[2] absteigende Reihenfolge" 

[3355] 

[2661 ] 

4580 

PRINT"[03 beenden" 

[1491] 

[2154] 

4590 

tlo=0:thi=2:GOSUB 2000 

[1050] 

[1 552 ] 

4600 

IF tval=0 THEN RETURN 

[1458] 

[1 450] 

4610 

sort=tval 

[884] 

(81 1 ] 

4620 

PRINT 

(361 ] 

[992] 

4630 

PRINT"Nach welchem Feld soll sortiert 

[4378] 

[2047 ] 
[1 466 ] 

werden ?" 

4640 GOSUB 4850 

[921 ] 

[2566 ] 

4650 

FOR n=0 TO belrec-2 

[1760] 

[797] 

4660 

ex=n:rec=ex 

(1260] 

[4662] 

4670 

GOSUB 2790 

[829] 

[1852] 

4680 

4690 

GOSUB 2870 

FOR m=n+1 TO belrec-1 

[901 ] 

[1 803] 

[1790] 

4700 

rec=m 

[487] 

[2052] 

4710 

GOSUB 2790 

[8293 

[2789] 

4720 

GOSUB 3010 

[967] 

[1 430 ] 

4730 

ON sort GOSUB 3150,3200 

[1 245] 

[1312] 

4740 

NEXT 

1350] 

[863 ] 

4750 

rec=n 

[4903 

1615] 

4760 

GOSUB 2790 

[829] 

(350] 

4770 

GOSUB 3010 

[967] 

[931 ] 

4780 

GOSUB 2940 

[895] 

[1 526 ] 

4790 

rec=ex 

[487] 

[350] 

4800 

GOSUB 2790 

[829] 

[1877 ] 

4810 

GOSUB 3080 

[1136] 

[902 ) 

4820 

NEXT 

13501 

[881 ] 

4830 

RETURN 

[555] 

[91 3] 

4840 

: 

[174] 

[1169] 

4850 

PRINT 

[361 ] 

[1628] 

4860 

PRINT"Nr./Feldname" 

[855] 

[2330] 

4870 

FOR n=1 TO felder 

[1167] 

[1167] 

4880 

PRINT n" "fbez$(n) 

[1807] 

[1576] 

4890 

NEXT:PRINT 

[811 3 

[350] 

4900 

tlo=1:thi=felder 

[2220] 

[117] 

4910 

GOSUB 2000 

[875] 

[1463] 

4920 

fld=tval-1 

[890] 
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4930 

RETURN 

[555] 

5810 

t=flen(y + 1 ) .-GOSUB 1840 

[1936] 

#% 
•iS & 

4940 

1 

[117] 

5820 

IF text$=""THEN RETURN 

[1128] 


4950 

'*** Directory zeigen *** 

11 676) 

5830 

meml$(y)=text$ 

[1 380] 


4960 


1117] 

5840 

GOTO 2940 

[3833 

4970 

WINDOW 24,53,2,21 

[1105] 

5850 

1 

[117] 

» 

4980 

file$="*.RDF" 

114191 

5860 

'*** Daten auflisten *** 

[1519] 


4990 

!DIR,@file$ 

[1295] 

5870 


[117] 


5000 

WINDOW 24,79,2,21 

[1171 ] 

5880 

IF PEEK(&9600)=0 THEN er=4;GOTO 2640 

[2014] 


5010 

RETURN 

[555] 

5890 

PRINT"[1] Alles auf listen" 

[2552] 


5020 

1 

[117] 

5900 

PRINT"[2] bedingte Ausgabe" 

[1819] 


5030 

|*** Daten eingeben *** 

[2042] 

5910 

PRINT"[0] beenden":PRINT 

[2206] 


5040 

[117] 

5920 

tlo=0:thi=2 

[1011 } 


5050 

IF PEEK(&9600)=0 TUEN er=4:GOTO 2640 

[ 201 4] 

5930 

GOSUB 2000 

[875] 

mm 

5060 

PRINT"[1] Datensaetze anhaengen" 

[1985] 

5940 

ON tval GOTO 5970,6050 

[1 339] 

I i 

iSSsSii 

5070 

PRINT"[2] Datensaetze einfuegen" 

[1892] 

5950 

RETURN 

[555] 

5080 

PRINT"[3] Datensaetze aendern" 

[2218] 

5960 

: 

[174] 


5090 

PRINT"[0] beenden" 

[1491 ] 

5970 

GOSUB 3290 

[1198] 


5100 

PRINT 

[361 ] 

5980 

FOR rec=0 TO belrec-1 

[1 405] 


5110 

tlo=0:thi=4 

[1 025] 

5990 

GOSUB 2790 

[829] 


5120 

GOSUB 2000 

[875] 

6000 

GOSUB 6350 

[853] 

* j 

5130 

ON tval GOTO 5160,5260,5570 

[1 958] 

6010 

CALL &BB06 

[393 ] 


5140 

RETURN 

[555] 

6020 

NEXT 

[350] 


5150 

: 

[174] 

6030 

RETURN 

[555] 


5160 

GOSUB 3290 

[1198] 

6040 

; 

[174] 


51 70 

WHILE belrec<maxrec 

[2733] 

6050 

PRINT 

1361 ] 


5180 

5190 

rec=belrec 

GOSUB 3400 

[829] 

[1009] 

6060 PRINT"Nach welchem Feld soll gesucht 
werden ?" 

[3536] 


5200 

IF text$=""GOTO 4030 

[841 ] 

6070 

GOSUB 4850 

[921 ] 

5210 

GOSUB 2940 

[895] 

6080 

PRINT"Suchmaske: 

[2172] 

o 

5220 

belrec=belrec+1 

[1172] 

6090 

t=flen(fld):GOSUB 1840 

[1984 ] 


5230 

WEND 

[390] 

6100 

IF text$=""THEN RETURN 

[1128] 


5240 

er=5:GOTO 2640 

[1 672] 

6110 

mask$=LOWER$(text$) 

[2532] 


5250 

: 

[174] 

6120 

GOSUB 3290 

[1198] 

< 

5260 

GOSUB 5460 

[871 ] 

6130 

FOR rec=0 TO belrec-1 

[1 405 ] 

» 

5270 

IF frerec=0 TUEN RETURN 

[2434] 

61 40 

GOSUB 2790 

[829] 

5280 

IF belrec+frerec>maxrec THEN er=5:GOT 

[4096] 

6150 

GOSUB 2870 

(901 ] 


0 2640 


6160 

text$=LOWER$(meml$(fld)) 

[2067] 

ID 

5290 

FOR n=1 TO belrec-posrec 

[2176 ] 

61 70 

GOSUB 6200 

[899] 


5300 

rec=belrec-n 

[948] 

6180 

NEXT:RETURN 

[9405 


5310 

GOSUB 2790 

[829] 

61 90 

: 

[174] 


5320 

GOSUB 2870 

[901 ] 

6200 

m=1 

(561 ] 


5330 

rec=rec+frerec 

[1727] 

6210 

FOR n = 1 TO LEN(mask$ > 

(2243 ] 


5340 

GOSUB 2790 

[829] 

6220 

bst$=MID$(mask$,n, 1 ) 

[2283] 


5350 

GOSUB 2940 

[895] 

6230 

IF bst$="‘"GOTO 6320 

[1673 ] 


5360 

NEXT 

(350] 

6240 

IF bst$="?"GOTO 6260 

[1 600 ] 


5370 

GOSUB 3290 

[1198] 

6250 

IF bst $<>MID$(text$,m,1 )THEN RETURN 

[3283 ] 

5380 

belrec=belrec+frerec 

(16551 

6260 

m=m+1 

[1053] 


5390 

FOR n=0 TO frerec-1 

[1801] 

6270 

NEXT 

[350] 


5400 

rec=posrec+n 

[1 720] 

6280 

GOSUB 6390 

[877] 

Äs 

5410 

GOSUB 3400 

[1 009] 

6290 

CALL &BB06 

(393 ] 

5420 

IF text$=""GOTO 4030 

[841 ] 

6300 

RETURN 

[555] 


5430 

GOSUB 2940 

[895] 

6310 

: 

[174] 

ä 1 

5440 

NEXT:GOTO 4030 

(969] 

6320 

m=INSTR(m,text$,CHR$(44)) 

[3326] 

S' 1 

5450 

: 

[174] 

6330 

IF m=0 GOTO 6280 

[1 489 ] 


5460 

IF belrec=0 THEN frerec=0rRETURN 

(920) 

6340 

GOTO 6270 

[397 ] 

Ü 

5470 

PRINT"Satznummer:"; 

[1705] 

6350 

' 

[117] 


5480 

tlo=0:thi=belrec-1 

[1 396] 

6360 

’ * ** PRINT *** 

[1131 ] 


5490 

GOSUB 2000 

[875] 

6370 

1 

[117] 


5500 

posrec=tval 

[721 ] 

6380 

GOSUB 2870 

[901 ] 


5510 

PRINT" Anzahl:"; 

[1701 ] 

6390 

PRINT CHR$(30)"Satznummer:"rec 

[2463] 


5520 

thi=belrec-posrec 

[1 642] 

6400 

FOR f=0 TO felder-1 

[1 536 ] 


5530 

GOSUB 2000 

[875] 

6410 

LOCATE 1,4+ftab(f) 

[1572] 

■s- 

5540 

frerec=tval 

[2290] 

6420 

PRINT meml$(f) 

(594 3 

«II 

5550 

RETURN 

[5553 

6430 

NEXT:RETURN 

[9403 

Hsäs-s- 

5560 

: 

[174] 

6440 

f 

[1171 


5570 

GOSUB 5460 

[871 ] 

6450 

'*** Daten loeschen *•* 

[1826 ] 


5580 

GOSUB 3290 

[1198] 

6460 

1 

[117] 


5590 

FOR n=0 TO frerec-1 

[1801 ] 

6470 

IF PEEK(&9600)=0 THEN er=4:GOTO 2640 

[2014] 

mm 

5600 

rec=posrec+n 

[1720] 

6480 

GOSUB 5460 

[871 ] 


5610 

GOSUB 2790 

[829] 

6490 

IF frerec=0 THEN RETURN 

[2434] 

mM 

5620 

GOSUB 6350 

[853] 

6500 

FOR n=0 TO belrec-posrec-1 

[2090] 


5630 

GOSUB 5660 

[974] 

6510 

rec=posrec+n+frerec 

£1992] 


5640 

NEXT:RETURN 

[940] 

6520 

GOSUB 2790 

[829] 


5650 

: 

[174] 

6530 

GOSUB 2870 

[901 ] 


5660 

GOSUB 2230 

[821 ] 

6540 

rec=posrec+n 

[1720] 

w 

5670 

y=0 

[483] 

6550 

GOSUB 2790 

[829] 

m 

5680 

LOCATE 1,ftab(y)+4 

[1 264 ] 

6560 

GOSUB 2940 

[895] 


5690 

CALL &BB8A 

[558] 

6570 

NEXT 

1350] 


5700 

i=INKEY$ 

1560J 

6580 

belrec=belrec-frerec 

[2393 ] 


5710 

IF i=""GOTO 5700 

[942] 

6590 

GOTO 4030 

(5391 


5720 

nn=INSTR(bef2$ , i ) 

[1 427] 

6600 

1 

1117] 


5730 

CALL &BB8D 

[555] 

6610 

'*** Zurueck zu BASIC *** 

(1852 ] 


5740 

IF i=CHR$(13)THEN CLSiM: RETURN 

(9731 

6620 

1 

[117] 


5750 

ON nn GOSUB 5770,5790,5810 

[1087] 

6630 

INPUT"Wirklich (j/n)";i 

[1927] 

- 

5760 

GOTO 5680 

[427] 

6640 

IF LOWER$(i)< > " j"GOTO 1260 

[881 ] 

Ü 

5770 

y=MAX{y-1,0) 

[767] 

6650 

GOSUB 4490 

[1023] 

s, 3 

5780 

RETURN 

[555] 

6660 

MODE 1 

[506] 

"S-%. 

5790 

y=MIN(y+1 ,felder-1 ) 

[1 930] 

6670 

PRINT"NeuStart mit 'GOTO 1030'" 

[3424] 

ti 

5800 

RETURN 

[555] 

6680 

CLEAR 

[217] 

ip 
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STAR-WRITER I 

»»■■■ mit Abstand das derzeit leistungsfähigste Textsystem für die 
CPC-Rechner und setzt neue Maßstäbe ( cpc international i my 


Leistungsmerkmale 


STAR-WRITER I ist ein Textsystem der Superlative und besticht durch Komplexi¬ 
tät und einfache Bedienung. 


Einfache Bedienung durch 
PULL-DOWN Menues 
Deutsche DIN-Tastatur mit 
Aufkleber 

Integrierte Adreßverwaltung 
im Direktzugriff 

Integriertes Grafikprogramm zur 
Erstellung von Briefköpfen 
Integriertes DFÜ-Programm für die 
Schneider-Schnittstelle 
Integrierter Zeicheneditor zur 
Erstellung von 10 Zeichensätzen 
Anpaßbar an jeden Drucker der 
auf dem Markt erhältlich ist 
Integrierte Tabellenkalkulation 
im Textprogramm 
Basicprogramme können einge¬ 
lesen und bearbeitet werden 
Komfortable Diskettenverwaltung 
(löschen, kopieren, umbenennen...) 
Ränder frei wählbar 
T rennvorschläge 
Zentrieren 

Formatierte Ausgabe auf dem 
Bildschirm 

Umfangreiche Blockoperationen 
Umformatieren auf andere Formate 
Zeichen einfügen und löschen 
Zeilen einfügen und löschen 
Absätze einfügen und löschen 
Kopf- und Fußzeilen frei änderbar 
Blocksatz 
Flattersatz 


Suchen und Ersetzen 

Serienbrieffunktion 

„MERGE“-Funktion 

Fließtexteingabe 

Wordwrap 

Bausteinverarbeitung 
9 verschiedene Layouts 
Proportionalschrift 
Hervorhebungen wie: 
Unterstreichen, Fettdruck, 
Doppeldruck, Kursiv, doppelte 
Breite, Schmalschrift, NLQ... 
Mathematische Formelschreib¬ 
weise (Hoch- und Tiefstellen) 
Definierte Zeichensätze können 
auf entsprechendem Drucker 
ausgegeben werden 
(z. B. Russisch oder Französisch). 


Schreiben Sie mit STAR-WRITER 1 Ihre: 

• Briefe 

• Einladungen 

• Angebote 

• Grußkarten 

• Lieferscheine 

• Werbeprospekte 

• Rechnungen 

• Bücher 

• Mahnungen 

• Adreßaufkleber usw. 
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DATEI-STAR 

Leistungsstarke Dateiverwaltung im Direktzugriff! 

• PULL-DOWN-Menues 

• Hauptprogramm komplett im Speicher 

• DIN-Tastatur plus Aufkleber 

• 1400 Zeichen pro Datensatz -^O, 

• 30 Felder pro Datensatz 

• Frei definierbare Eingabemaske 

• Frei definierbare Druckmaske 

• Sortieren und Selektieren nach allen Feldern 

• Erstellung von Pointerdateien 

• Schnittstelle zu STAR-WRITER I 


v, 





/oY®% 
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MATHE-STAR 

Vom Lehrer für Schüler! 

• Lin. Gleichungssysteme 

• Gleichungen 4. Grades 

• Bruchrechnen 

• Primfaktorzerlegung 

• Polynome 

• Kurvendiskussion 

• Integralrechnung 

• Vektorrechnung 

• Matrixrechnung 
etc. 



STATISTIC-STAR 

Ein professionelles Grafik- und Statisticpro- 
gramm zum Auswerten von Daten aller Art 
(Schule, Studium, Beruf, Hobby, Haushalt...). 

• Linien-, Balken- und Tortengrafik 

• Betiteln von Grafiken 

• 400 Daten direkt im Speicher 

• Umfangreiche Editierfunktionen 

• Umfangreiche statistische Berechnungen 


9.3z 


3x 


ex 


s.ax 


10.ax 


9.8z 


8.2X 


J.0X 


i.8X 


4.6X 


11 .» 
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STAR-MON 

Das Entwicklungssystem 
für den CPC! 


Assembler 

Editor 

Disassembler 
Monitor 
4 Breakpoints 
Trace-Funktion 
Bankswitch 
Memory Dump 1 
usw. 



COPY-STAR II 

istdie ideale Befehlserwei¬ 
terung für Druckerbesit¬ 
zer, denn es stellt für alle 
gängigen Drucker Hard¬ 
copyfunktionen in verschie¬ 
denen Größen zur Verfü¬ 
gung. Sogar Farbbilder 
lassen sich schattiert aus¬ 
geben. COPY-STAR II kön¬ 
nen Sie leicht 
in eigene Pro¬ 
gramme ein¬ 
binden. 


39. 

«as 

*9, 


9o 

Seite 

90 
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Weitere Programme 

DISKSORT-STAR 

(Diskettenverwaltung . 59,90 

DESIGNER-STAR (Starkes 

G: afikprogramm . 69,90/79,90 

COLOUR-STAR PLUS (Befehls¬ 
erweiterung f. 664/6128) . 49,90 

CREATOR-STAR (Trickfilm¬ 
designer-Diskette) . 59,90 

PUZZLE (Tolles 

Denkspiel). 39,90/49,90 

STAN (Super 

Grafikadventure) . 49,90/59,90 

PYRAMIDE (Text u 

Grafikadventure . 49,90/59,90 

LAGER-STAR Lagerverwaltung 

u. Fakturierung . 98,— 

FIBU-STAR 

Finanzbuchhaltung. 98,— 


Händleranfragen erwünscht Software-Autoren gesucht 


ZUM ELFENBRUCH 1 = ==. 

2120 LÜNEBURG = = 

FERNRUF (04131) 402550 ^= = SfSSjL 


n Senden Sie mir unverbindlich Ihren Katalog 
[H Hiermit bestelle ich per Nachnahme/Vorkasse 


Vorname, Warne 


Straße 


Datum, Unterschrift 


(Ausschneiden und aul eine Postkarte kleben) 
(Auslandsendungen nur gegen Vorkasse) 

(Alle Preise inklusive 14 % MwSt. zzg. 5,— Porto u Verp.) 
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Der universelle Floppy- 
Disk-Controller pPD 765 im 
Schneider-Floppylaufwerk 


Der 765 ist ein eigenständiger Mikro¬ 
prozessor, der speziell für die Ver¬ 
waltung der Daten auf der Diskette, den 
Datenaustausch mit dem Rechner und 
die Steuerung der Laufwerksmechanik 
der Floppystation konzipiert ist. Von 
Haus aus ist der 765 sehr leistungsfähig; 
er ermöglicht z.B. den Datentransfer 
mit einem DMA-Baustein, ohne den 
Rechnerprozessor zu belästigen. Eben¬ 
so ist die Verwaltung von bis zu vier 
Laufwerken oder die Ansteuerung von 
Doppelkopflaufwerken möglich. Diese 
Optionen werden allerdings vom Disk¬ 
verwaltungsprogramm AMSDOS nicht 
genutzt und sollen hier auch nicht 
weiter erläutert werden. Dieser Bericht 
soll einen Einblick in die Arbeit des 
FDC und in die Zusammenarbeit mit 
der Z80A geben; Bild 1 stellt diese Zu¬ 
sammenarbeit schematisch dar. 


Die Pinbelegung 


Bild 2 stellt die Anschlußbelegung des 
)iPD 765 dar; die Funktionen der ein¬ 
zelnen Pins können Sie der folgenden 
Aufstellung entnehmen, wobei eine Er¬ 
läuterung der von AMSDOS nicht ge¬ 
nutzten Funktionen nicht vorgenom¬ 
men wird. 

Pin 1: RESET 

Durch Anlegen einer logischen T = 
'High'-Potential wird der 765 in den 
Einschaltzustand versetzt. 

Pin 2: ReaD 

Ist verbunden mit dem RD-pin der 
Z80A, wird von dieser auf logisch 
0 =’low"-Potential gelegt, wenn Daten 
vom 765 gelesen werden sollen. 



Pin 3: WRite 

Wie Pin 2, wird vom Prozessor low ge¬ 
setzt, wenn Daten in den FDC geschrie¬ 
ben werden sollen. 

Pin 4: Chip Select 

Wird vom Prozessor bedient. Wenn low, 
wird der 765 als Partner der CPU akti¬ 
viert, RD und WR werden ermöglicht. 


Bild 1 
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Pin 5: Adress line 0 

Wird vom Prozessor bedient. Wenn 
high, wird der Inhalt des Datenregisters 
an den Datenbus gelegt, low legt den In¬ 
halt des Statusregisters an. 

Pins 6 - 13: Data Bus 0-7 

Über den acht Bit breiten Datenbus 
empfängt der 765 Daten und Befehle 
vom Prozessor, sendet Daten und den 
Inhalt des Statusregisters. 

Pin 14: Data dma ReQuest 

Wird benutzt im DMA-Modus, d.h. in 
der Datenübertragung ohne Prozessor. 

Pin 15: Dma ACKnowIedge 
wie Pin 14 

Pin 16: Terminal Count 

wie Pin 14 

Pin 17: InDeX 

Erhält High-Signal vom Floppylauf- 
werk. wenn die Lichtschranke das In¬ 
dexloch erkannt hat, das bedeutet: An¬ 
fang der Disk-Spur. 

Pin 18: INTerrupt 

Wird vom FDC high gesetzt, um die 
Aufmerksamkeit des Prozessors z.B. 
bei der Datenübertragung zu erlangen. 

Pin 19: ClocK 
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Der Takteingang; muß extern mit ei¬ 
nem 4/8 MHz Rechtecksignal gespeist 
werden (Schneider: 4 MHz). 

Pin 20: GrouND 

Systemmasse, gleichzeitig Anschluß 
der negativen Versorgungsspannung. 

Pin 21: Write ClocK 

An diesen Pin wird ein Rechtecksignal 
gelegt. (0.5/1 MHz), welches die Über¬ 
tragungsgeschwindigkeit zu senden¬ 
der/zu empfangender Daten bestimmt. 

Pin 22: Read Data Window 

Dieses Signal wird vom PLL-Generator 
erzeugt und dient dem Zusammenset¬ 
zen eines Bytes aus den vom Laufwerk 
gelesenen Daten. 

Pin 23: Read Data from Disk 

Über diesen Anschluß werden seriell 
die auf Disk gespeicherten Informatio¬ 
nen einschließlich des Synchronisations¬ 
signals eingelesen. 

Pin 24: Voltage Controlled Oscillator 

Schaltet den VCO ein, wenn high. 

Pin 25: Write Enable 

Wird u.a. im Zusammenhang mit ge¬ 
schützten Disketten benutzt: Wenn 
low, ist kein Schreibzugriff auf Diskette 
möglich. 


iiiiiiiiiiiiiMiriiiMiiiiMMmniiiitiiiimii 
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Pin 26: MFM Mode 

Dies ist der Umschalter zwischen 
Single/Double Density-Format, wobei 
high doppelte Schreibdichte ist. 

Pin 27: HeaD select 

Wählt die Köpfe eines Doppellauf¬ 
werks an: Wenn high, ist Kopf 1 
gewählt. 

Pins 28,29: Unit Select 1 + 2 

Mit diesen Pins wird das gerade vom 
765 angesprochene Laufwerk aktiviert. 

Pin 30: Write DAta 

An diesen Pin werden die vom Lauf¬ 
werk gelesenen Daten und das Synchro¬ 
nisationssignal angelegt. 

Pins 31,32: Pre-Shift 1 + 2 
Mit dem an diesen Pins anliegenden Si¬ 
gnal werden Zeitunterschiede im 
Double-Density-Modus kompensiert. 
Mögliche Ausgaben sind 'früh, normal 
und spät'. 

Pin 33: FauLT/TRackO 

Wenn high im Read/Write-Modus, dann 
ist ein Laufwerksfehler aufgetreten, 
wenn high im Seek-Modus, dann ist 
Track 0 erreicht. 

Pin 34: Write Protect/Two-Side 

Wird vom Laufwerk im Read/Write- 
Modus high gesetzt, wenn die Diskette 
schreibgeschützt ist, im Seek-Modus 
wird High-Potential angelegt, wenn eine 
doppelseitig beschreibbare Diskette er¬ 
kannt wurde. 

Pin 35: ReaDY 

Dieser Anschluß wird vom Laufwerk 
high gesetzt, wenn dieses zum Senden 
oder Empfangen von Daten bereit ist, 
nachdem der Laufwerksmotor seine Ar¬ 
beitsgeschwindigkeit erreicht hat. 

Pin 36: HeaD Load 

Für Laufwerke (hauptsächlich 8"- 
Formate), deren Laufwerksmotor stän¬ 
dig eingeschaltet ist, um den Schreib-/ 
Lesekopf bei Bedarf mechanisch auf 
die Diskette abzusenken oder von ihr 
abzuheben. 

Pin 37: Fit Reset/STeP 
Im Read/Write-Modus wird durch an¬ 
liegendes High-Potential ein ggfs, in ei¬ 
nem Laufwerk befindliches Fehler-Flip- 
Flop zurückgesetzt (Fehler ist beseitigt), 
im Seek-Modus ist ein High-Impuls die 
Anweisung an den Steppermotor, ei¬ 
nen Schritt in die durch LCT/DIR (Pin 
38) angegebene Richtung zu machen, 

Pin 38: Low CurrenT/DlRection 

Wird im Read/Write-Modus dieser Pin 
high gesetzt, so wird von der Steuer- 
Elektronik des Laufwerks, der Schreib¬ 
strom zum Beschreiben der inneren 
Spuren vermindert; im Seek-Modus 
wird durch Anlegen von high oder low r 
die Richtung der Steppermotorbewe¬ 
gung angegeben. 

Pin 39: Read/Write-Seek 

An diesem Pin wird nun der Arbeitsmo¬ 


dus des Laufwerks festgelegt. Lese-/ 
Schreibzugriffe werden mit low ange¬ 
wählt, durch Anlegen von High- 
Potential wird der Seek-Modus einge¬ 
schaltet, in dem das Positionieren des 
Schreib-/Lesekopfes erfolgt. 



Pin 40: VCC 

Hier wird die Versorgungsspannung (+ 
5V +/- 5 %) angelegt. 


Die Befehlsübermittlung 


Der pPD 765 erhält seine Kommandos 
vom Prozessor des Hauptsystems (in 
diesem Fall von der Z80A-CPU) in 
Form mehrereracht Bit breiter Komman¬ 
doworte, die die auszuführende Aktion 
detailliert beschreiben und sämtliche 
Parameter enthalten. Diese Worte wer¬ 
den im Handshakebetrieb auf den Da¬ 
tenbus des 765 gelegt. Das Abarbeiten 
eines Befehls geschieht in drei Phasen: 

1. Kommandophase 

Der 765 erhält die Kommandoworte, 
die zur Ausführung eines Befehls be¬ 
nötigt werden und quittiert deren 
Empfang. 

2. Ausführungsphase 

Der übermittelte Befehl wird ausge¬ 
führt. 

3. Ergebnisphase 

Nach der vollständigen Ausführung 
stellt der 765 den Status der Operation 
und weitere Informationen wie z.B. die 
Nummer der aktuellen Spur und des 
Sektors an seinem Datenbus zur Verfü¬ 
gung. 

Nachfolgend wird der Befehlssatz des 
765 aufgelistet und beschrieben. Jeder 
Befehl wird in den beschriebenen Pha¬ 
sen erklärt, die Kommandoworte wer¬ 
den in Bits aufgelöst beschrieben, wo¬ 
bei ein gesetztes Bit mit T, ein gelösch¬ 
tes mit '()' gekennzeichnet ist. Die 
Bedeutung der Symbole entnehmen Sie 
bitte der Tabelle 1. Links im Komman¬ 
dowort steht das höchstwertige Bit, 
welches am Datenbus D7 angelegt wird. 
Die in Phase 1 unter 1. und 2. angegebe¬ 
nen Kommandoworte spezifizieren den 
Befehl, die unter3. aufgeführten Sektor- 
ID-Informationen enthalten ebenfalls 
ein Datenbyte, welches z.B. den zu be¬ 
arbeitenden Sektor angibt. Die Kom¬ 
mando- und Informationsworte wer¬ 
den nacheinander vom Hauptprozes¬ 
sor auf den Datenbus des 765 gelegt, um 
die gewünschte Aktion genau zu be¬ 
schreiben. 

1. READ DATA 

Pn üsp 1 ’ 

1. MT MF SK 0 0 1 10 
2.0 0 0 0 0 HD LISI US1 
3. Sektor-ID-Information (in dieser 
Reihenfolge): C,H,R,N,EOT,GPL,DTL 
Phase 2: Ausführung, Datentransfer 
zwischen Floppy und Prozessor 
Phase 3: Status- und Sektorinformatio- 
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nen (in dieser Reihenfolge): ST0,ST1. 
ST2,C,H.R,N 

Ablauf: Positionieren. Suchen der an¬ 
gegebenen Sektor-ID, Datenübertra¬ 
gung, Ergebnisse mitteilen. 

2. READ DELETED DATA 

Phase 1: 

1. MT MF SK 0 1 10 0 
2.0 0 0 0 0 HD US1 USO 

3. Sektor-ID-Information: 
C,H,R,N,EOT,GPL,DTL 
Phase 2: Datentransfer 

Phase 3: Status- und Sektorinformatio- 
nen: ST0,ST1,ST2,C,H,R,N 
Ablauf: Positionieren, Suchen der 
Sektor-ID, Überspringen der Markie¬ 
rung für gelöschte Sektoren, Daten¬ 
übertragung, Ergebnisse. 

3. WRITE DATA 
Phase 1: 

1. MT MF 0 0 0 1 0 1 

2. 0 0 0 0 0 HD US1 USO 

3. Wie READ DATA 
Phase 2: Wie READ DATA 
Phase 3: Wie READ DATA 
Ablauf: Wie READ DATA 

4. WRITE DELETED DATA 
Phase 1: 

1. MT MF 0 0 1 0 0 1 

2. 0 0 0 0 0 HD US1 USO 

3. Wie READ DELETED DATA 
Phase 2: Wie READ DELETED 
DATA 

Phase 3: Wie READ DELETED 
DATA 

Ablauf: Wie READ DELETED 
DATA 

5. READ A TRACK 

Phase 1: 

1. 0 MF SK 0 0 0 1 0 

2. 0 0 0 0 0 HD US1 USO 

3. Sektor-ID-Informationen übermit¬ 
teln: C,H,R,N,EOT,GPL,DT 

Phase 2: Datentransfer alle Daten vom 
Indexloch bis zur EOT-Markierung 
werden gelesen. 

Phase 3: Rückgabe der Status- und 


Bild 2 
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-ID-Informationen: ST0,ST1,ST2. 

H, R,N 

Ablauf: Positionieren auf den ge¬ 
wünschten Track, Start des Lesevor¬ 
gangs nach Erkennen des Indexloches, 
Ende beim gesetzten EOT oder nach¬ 
dem das Indexloch ein zweites Mal er¬ 
kannt wurde. 

6. READ ID 
Phase 1: 

I. 0 MF 0 0 1 0 1 0 

2.0 0 0 0 0 HD US1 US2 
Phase 2: 

Die erste gültige ID auf einem Track 
wird gelesen und in das Datenregister 
übergeben. 

Phase 3: Übergabe der Sektor-ID und 
Statusinformationen: ST0,ST1.ST2,C, 
H,R,N 

Ablauf: Positionieren auf den ge¬ 
wünschten Track, Lesen der ersten 
gültigen ID des Tracks und Übergabe 
der ID an den Datenport, Ergebnisse 
(Status) der Operation mitteilen. 


7. FORMAT A TRACK 

Phase 1: 

1. 0 MF 0 0 1 10 1 

2. 0 0 0 0 0 HD US1 USO 

3. Angeben, welcher Track formatiert 
werden soll, wieviele Bytes pro Sektor 
zu füllen sind und welchen Inhalt das 
Füllerbyte hat: N,SC,GPL,D 

Phase 2: Laufwerk formatiert einen be¬ 
stimmten Track. 

Phase 3: Nur die Statusinformation 
wird ausgegeben. Bytefolge: ST0.ST1. 
ST2,C,H.R.N 

Ablauf: Positionieren auf den zu for¬ 
matierenden Track, nach Erkennen des 
Indexlochs werden die ID's. die Adress- 
markierungen und die Füllbytes auf die 
vorher festgelegte Anzahl von Sektoren 
geschrieben, anschließend wird der 
Status ausgegeben. 

8. SCAN EQUAL 

Phase 1: 

1. MT MF SK 1 0 0 0 1 

2. 0 0 0 0 0 HD US1 USO 

3. Sektor-ID-Informationen: C,H,R,N. 
EOT.GPL.STP 

Phase 2: Vergleich der im angegebenen 
Sektor geschriebenen Daten mit den zu 
schreibenden zwischen Laufwerk und 
Hauptprozessor. 

Phase 3: Übergabe der Status- und 
Sektor-ID-Informationen: ST0,ST1, 
ST2,C’,H,R,N 

Ablauf: Lesen der im angegebenen 


Sektor enthaltenen Daten, Anfordern 
eines Bytes der 'Originaldaten’ vom 
Hauptprozessor, Vergleichen dieses 
Bytes nach der Bedingung 'gleich’, 
Ende des Vergleichs, wenn die Testbe¬ 
dingung erfüllt wurde, Rückgabe der 
Statusinformation. Dieser Befehl er¬ 
laubt eine komfortable 'Verify'-Funk¬ 
tion. 

9. SCAN LOW OR EQUAL 

P|i p cp 1 • 

1. MT MF SK 1 10 0 1 

2. 0 0 0 0 0 HD US1 USO 

3. Wie SCAN EQUAL 
Phase 2: Wie SCAN EQUAL 
Phase 3: Wie SCAN EQUAL 
Ablauf: Wie SCAN EQUAL, allerdings 
werden die Bytes bei diesem Befehl 
nach der Bedingung 'kleiner oder 
gleich’ verglichen. 

10. SCAN HIGH OR EQUAL 

Phase 1: 

1. MT MF SK 1 1 1 01 
2.0 0 0 0 0 HDUS1US0 
3. Wie SCAN EQUAL 
Phase 2: Wie SCAN EQUAL 
Phase 3: Wie SCAN EQUAL 
Ablauf: Wie SCAN EQUAL. allerdings 
werden die Bytes bei diesem Befehl 
nach der Bedingung größer oder gleich’ 
verglichen. 

11. REC’ALIBRATE 

Phase 1: 

1 . 0 0 0 0 0 1 1 1 

2. 0 0 0 0 0 0 US1 USO 

Phase 2: Der Schreib-/Lesekopf des 
Laufwerks wird auf Track 0 zurückge¬ 
setzt. 

Ausführung: Die 765-internen Flags für 
die aktuelle Kopfposition werden auf 
null gesetzt; der Kopf wird so lange in 
Richtung des Tracks 0 geführt, bis das 
Laufwerk den 'TrackO'-Impuls ausgibt. 

Der Status dieser Operation kann in 
den Statusregistern abgefragt werden. 

12. SENSE INTERRUPT STATUS 

Phase 1: 

1:0 0 0 0.0 0 0 0 

Phase 3: Übergabe des Status des 765 
nach einem Interrupt am Ende einer 
SEEK- oder RECALIBRATE-Befehls- 
folge durch ST0.PCN 

13. SPECIFY 

Phase 1: 

1 . 0 0 0 0 0 0 1 1 
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3. Übergabe der Standardwerte für die 
Initialisierung eines Laufwerks: 
SRT,HIJT,HLT,ND 

14. SENSE DRIVE STATUS 

Phase 1: 

1.0 0 0 0 0 1 0 0 

2. 0 0 0 0 0 HD US1 USO 
Phase 3: 

Übergabe des Laufwerkstatus an den 
Hauptprozessor durch Statusregister 
3: ST3 

15. SEEK 

Phase 1: 

1. 0 0 0 0 1 1 1 1 

2.0 0 0 0 0 HDUS1 US2 

3. Angabe der neuen Track-Nummer: 
NCN 

Phase 2: Durch Ausgabe von Impulsen 
an die Steuerelektronik des Laufwerks 
wird der Schreib-/Lesekopf auf die ge¬ 
wünschte Position gebracht. 


Die Statusregister 


Der FDC 765 ist mit fünf Registern aus¬ 
gestattet, die dem Prozessor des 
Hauptsystems ermöglichen, (fast) jeder¬ 
zeit über den Status des Laufwerks des 
FDC und ausgeführter Operationen in¬ 


formiert zu sein. Das Hauptstatusregi¬ 
ster zeigt den Zustand des FDC an und 
übernimmt den Floppy-seitigen Quit- 
tungs-(Handshake)-Betrieb. Es kann 
jederzeit ausgelesen werden. Die Regi¬ 
ster ST0 - ST2 stellen Meldungen über 
den erfolgreichen Abschluß von Lese- 
und Schreiboperationen zur Verfü¬ 
gung. Das Auslesen ist nur bei STÖ über 
eigene Befehle möglich. In ST3 schließ¬ 
lich stehen die kompletten Statusinfor¬ 
mationen des Laufwerks zur Verfügung 
und können vom Anwender über geeig¬ 
nete Befehle abgerufen werden. Die 
Belegung des Hauptregisters und des 
Laufwerksregisters ST3 und deren mög¬ 
liche Inhalte sind nachfolgend aufgeli¬ 
stet. 


Das Hauptstatusregister 


Bit 7: ReQuest for Master 

Wenn high, ist der 765 zum Datentrans¬ 
fer mit dem Hauptprozessor bereit. 

Bit 6: Data Input/Output 

High = senden, low = empfangen 

Bit 5: EXecution Mode 

High, wenn die Ausführungsphase be- 


Symbol 

ao 

c 

D 

D7 - DO 
DTL 

EOT 

GPL 

H 

HD 

HLT 

HUT 

MF 

MT 

N 

NCN 

ND 

PCN 

R 

R/W 

SC 

SK 

SRT 

ST0-3 


STP 

USO, US1 


Name 

Adress-Line 0 

Cylinder-Number 

Data 

Data-Bus 

Data-Length 

End of Track 
Gap Length 

Head-Adress 

Head 

Head load Time 
Head unload Time 
FM/MFM-Mode 
Multi-Track 

Number 

New-Cylinder- 

Number 

Non-DMA-Mode 

Presen t-Cylinder- 

Number 

Record 

Read-Write 

Sectors 

Skip 

Step-Rate-Time 
Status 0-3 


Unit-Select 


Funktion 

wählt Hauptstatusregister (0) 
oder Datenregister (1) 

Nummer des gewählten/aktucllen Tracks 
beschreibt Datenmuster, welches in einem 
Sektor geschrieben wird 
8-Bit Datenbus; Bit 7 = High-Bit 
wenn N = 0, wird hier die Länge der zu 
schreibenden/lesenden Daten übergeben 
bezeichnet den letzten Sektor einer Spur 
enthält die Angabe, wie lang der VCO nach 
zwei Kommandobytes ausgeschaltet bleibt 
Kopfnummer in Doppelkopflaufwerken 
= H in Kommandoworten, kontrolliert zu¬ 
sätzlich das Potential an Pin 27 
2 - 254 ms in 2 ms-Stufen 
16 - 240 ms in 16 ms-Stufen 
Umschaltung Single/Double-Density 
zeigt die bevorstehende Ausführung einer 
Multi-Track-Operation an 
Anzahl der Bytes, die in einem Sektor ge¬ 
schrieben werden 

gewünschter Track, der nach dem Positionie¬ 
ren erreicht werden soll 
wenn gesetzt, arbeitet der 765 mit dem Haupt¬ 
prozessor zusammen 

aktuelle Track-Nummer nach dem Positio¬ 
nieren 

Nummer des Sektors, auf den zugegriffen 
wird 

Auswahl der Operation lesen/schreiben 
gibt die Anzahl der Sektoren pro Track an 
Überspringen der Markierung gelöschte 
Daten’ 

Stepping-Zeit (1 - 16 ms in 1 ms-Schriften) 
diese Register stellen in der Ergebnisphase ei¬ 
nes Befehls relative Informationen zur 
Verfügung 

während des SCAN-Befehls Auswahl der 
Sektoren 

Auswahl der Laufwerke 1 - 4 


gönnen hat, low vor Beginn der 
Ergebnisphase. 

Bit 4: fdC Busy 

Wenn der 765 während einer Schreib-/ 
Leseoperation keine weiteren Kom¬ 
mandos entgegennehmen kann, wird 
dieses Bit high gesetzt. 

Bits 0-3: fdD3-0 Busy 

Während einer SEEK- oder RECALI- 
BRATE-Operation eines der vier mög¬ 
lichen Laufwerke wird das zugehörige 
Bit gesetzt, um dem Hauptprozessor zu 
signalisieren, daß zur Zeit kein Da¬ 
tentransfer stattfinden kann. 


Das Statusregister 3 


Bit 7: FaulT 

Wird high, wenn ein beliebiges Feh¬ 
lersignal vom Laufwerk kommt. 

Bit 6: Write Protected 

Wenn die eingelegte Diskette schreib¬ 
geschützt ist, wird dieses Bit high. 

Bit 5: ReadY 

High, wenn das Laufwerk zum Durch¬ 
führen weiterer Operationen bereit ist. 

Bit 4: Track 0 

High, wenn der Schreib-/Lesekopf des 
Laufwerks in der Grundposition ist. 

Bit 3: Two Side 

Dieses Bit zeigt, welcher Laufwerkstyp 
(Einfach-/Doppellaufwerk) an den 765 
angeschlossen ist (high = Einzellauf¬ 
werk). 

Bit 2: HeaD address 

Dieses Bit zeigt auf das Potential des 
an Pin 27 des 765 anliegenden Signals. 

Bits 1,0: Unit Select 
Diese Bits haben das gleiche Potential 
wie die Unit Select-Pins des 765. 


Technische Daten 


Speisespannung 5V, max. 7V 
Input low, min. -0.5V, max. 0.8V 
Input high, min. 2V, max. 5.5V 
Output low, max. 0.45V 
Output high. min. 2.4V, max. 5V 
Strombedarf 150 rnA 
Leistungsaufnahme IW 
Temperatur min. -10, max. +70 Grad 

Die Daten über den FDC 765 wurden 
dem Datenblatt der Firma NEC ent¬ 
nommen. Sie sollen dem an Hardware 
interessierten Leser einen Überblick 
vermitteln und sind deshalb nicht in 
der nötigen Ausführlichkeit wiederge¬ 
geben. Lesern, die mit dem 765 eigene 
Hardware entwickeln möchten, gebe 
ich auf schriftliche Anfrage gern weitere 
Informationen zu diesem Baustein. 
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Diskette - was ist das? 

Neben dem herkömmlichen Datenträger 
Kassette, setzt sich zunehmend die 
Diskette als Speichermedium für Com¬ 
puterdaten durch. Die Diskettenspeiche¬ 
rung ist nicht nur wesentlich schneller, 
sondern auch um ein Vielfaches zuverläs¬ 
siger als die Speicherung auf Kassette. 

Die Diskette ist eine kleine Magnet¬ 
scheibe aus flexiblem Material. In der 
Umgangssprache wird eine Diskette 
auch „Floppy-Disk" genannt. Man un¬ 
terscheidet Disketten nach Größe, 
Aufzeichnungsdichte und Anzahl der 
verfügbaren Seiten zur Datenspeiche¬ 
rung. 

Für den Schneider CPC sind nur die 3”- 
und 5 l/4"-Formate zu verwenden. Eine 
hohe, komplexe Fertigungstechnologic 
ist für die genaue Einhaltung der For¬ 
mate unerläßlich, da die geringste Ab¬ 
weichung den Datenträger unbrauch¬ 
bar macht. 

Betrachten wir uns den Aufbau einer 
Diskette einmal am Beispiel der 3”- 
Compact-Floppy von Maxell (Abb. 1). 
Die Compact-Floppy ist eine soge¬ 
nannte High-Density Diskette, d.h., es 
wird durch eine Erhöhung der 
Speicherdichte die Aufzeichnungska¬ 
pazität gesteigert. Voraussetzung für 
diese hohe Speicherdichte ist eine 
kompakte Magnetschicht - die Epita- 
xial-Beschichtung. Dieses Verfahren 
basiert auf Magnetpartikeln, die aus ei¬ 
ner Verbindung von Kobalt-Ferrit und 
Gamma-Eisenoxid bestehen und mit 
einem Spezialbinder auf die Folie auf¬ 
getragen werden. Diese Beschichtung 
hat eine wesentlich höhere magneti¬ 
sche Kapazität als die üblichen 
Eisenoxid-Beschichtungen. 

Das Kopffenster ist eine längliche Öff¬ 
nung in der Hülle der Diskette, durch 
die der Schreib-/Lesekopf der Disket¬ 
tenstation die Magnetschicht der Dis¬ 
kette magnetisiert (beim Schreiben) 
bzw. ablastet (beim Lesen). 

An der Oberseite der Diskette sind soge¬ 
nannte Schreibschutzkerben ange¬ 
bracht. Sic dienen dem Schutz der 
Daten gegen unbeabsichtigtes Über¬ 
schreiben bzw. Löschen der gespei¬ 
cherten Daten. Zwischen den Schreib¬ 
schutzkerben befindet sich der auto¬ 
matische Verschluß, der die Compact¬ 
Floppy-Disk vor Schmutz und Staub 
schützt. 

In der Mitte der Diskette sitzt das 
Center Hole, über das die Diskette vom 
Laufwerk angetrieben wird. Hier ist 
eine präzise Zentrierung für einen ein¬ 
wandfreien Lauf unbedingt Vorausset¬ 
zung. Das nächste äußerliche Merk¬ 
mal der 3"-Compact-Floppy ist das In¬ 
dexloch. Dieses gestanzte Loch legt den 
physischen Spurenanfang der Diskette 
fest. Eine Lichtschranke in der Disket¬ 
tenstation überwacht diese Stelle der 
Diskette und gibt jedesmal einen Im¬ 
puls ab,w'enn in einer Umdrehung der 
Strahlengang durch das Indexloch frei¬ 
gegeben w'ird. 


Vorsicht! 

Diskette! 

Schreibschutz- 


Abbildung 1 



Fehlt zur Erläuterung noch das Reini¬ 
gungsvlies, das zwischen Hülle und 
Magnetscheibe sitzt. Das antistatische 
Spezial-Reinigungsvlies reinigt perma¬ 
nent die Diskette und vermindert die 
Reibung zwischen Diskette und 
Hülle. 

Das waren die wesentlichen Merkmale 
der 3"-Compact-Floppy von Maxell. 
Als Trägermaterial der Diskette dient 
eine Polyesterfolie von einem zehntel 
Millimeter Stärke. Auf die Folie wird 
beidseitig eine Schicht aufgebracht, in 
die die Epitaxial-Beschichtung als ei¬ 
gentlicher magnetischer Datenspeicher 
eingebettet ist. Diese Beschichtung wird 
getrocknet und geglättet. Danach wer¬ 
den die Scheiben ausgestanzt, wobei es 
besonders auf die Maßgenauigkeit des 
Center Hole an kommt. Die Diskette 
wird oberflächenversiegelt und po¬ 
liert, die Hülle gefertigt und die Diskette 
darin versiegelt. Es folgsdie Prüfung auf 
„Herz und Nieren”, die bei Maxell ins¬ 


gesamt 114 Einzelprüfungen ausmacht. 
Der sogenannte „Error-frei-Test" gilt 
als wichtigster Maßstab für die Qualität 
einer Diskette. Da die Spuren auf der 
Diskette nur Bruchteile von Milli¬ 
metern breit sind und die Aufzeich¬ 
nung mit großer Geschwindigkeit er¬ 
folgt, stellen umfangreiche Tests die 
Fehlerfreiheit aller verwendeten Mate¬ 
rialien und Arbeitsgänge sicher. 
Bekanntlich werden Daten auf einer 
Diskette in Blöcken gespeichert. Am 
Anfang und Ende jedes Blocks wer¬ 
den Lücken (GAP’s) für Spuren- und 
Sektornummern sowie Prüfbytes gelas¬ 
sen. Diese GAP’s grenzen einzelne Sätze 
einer Datei ab. Das Ende eines Satzes 
w'ird durch eine kleine Lücke (Unter¬ 
brechung) gekennzeichnet. Dieser Vor¬ 
gang ist das Formatieren. Disketten 
sind durch den Hersteller formatiert 
(hard-sektoriert) oder unformatiert 
(soft-sektoriert) erhältlich. 

Wir wissen nun, daß Disketten tech¬ 
nisch hochw'ertige und zuverlässige 
Datenträger sind. Dementsprechend 
benötigen die Floppy-Disks auch 
Pflege und Gebrauchsvorschriften, um 
sie vor unbeabsichtigten Datenverlu¬ 
sten zu schützen. 

Damit die Zuverlässigkeit und Funk¬ 
tionsfähigkeit der Disketten voll er¬ 
halten bleibt, sind folgende Punkte zu 
beachten: 

Wenn Sie die hier gezeigten Bedie¬ 
nungshinweise genauestem beachten, 
sind Sie vor unfreiwilligen Datenverlu¬ 
sten geschützt. 

Wir hoffen, daß Sic einen Einblick in 
die Funktions- und Bedienungshin¬ 
weise der Diskette erhalten haben und 
würden uns freuen, wenn Ihnen beim 
Disk-Betrieb kein „Read-" oder 
„Write"-Error” unterkommt. (SR) 



Niemals die Diskette an 
der Oberfläche berühren! 


Niemals die Diskette mit 
fc. Gummibändern oder 

C3 Büroklammern abbeften’ 


Niemals die Diskette in die 
C Nahe magnetischer 

Gegenstände bringen 1 


O) 



Immer die Diskette im 
vorgesehenen Etikett mit 
weichem Filzschreiber 
beschriften 1 


Niemals die Diskette 
unnötig aus dem 
Schutzumschlag 
entfernen! 



Niemals die Diskette unter 
schweren Gegenständen 
aulbewahren! 


Niemals die Diskette 
groBer Sonnen- oder 
Warmeeinwi rku ng 
aussetzen 1 


immer die Diskette an der 
Oberseite lassen und. 
vorsichtig in das Lautwerk 
einführen! 



Niemals die Diskette mit 
spitzen Bleistiften oder 
Kugelschreibern 
beschriften! 



Niemals die Diskette 
biegen oder talten! 



Niemals die Diskette unter 
*10' oder über 50'C 
emsetzen oder lagern! 


Immer die Oiskette in der 
Packung aufrecht lagern! 



Niemals auf dem 
Schutzumschlag der 
Diskette radieren! 



Niemals dia Diskette mit 
Alkohol, Verdünner oder 
Freon reinigen! 



Niemals die Diskette mit 
Gewalt ins Laufwerk 
eintühren t 
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Immer die Diskelle so 
versenden, da6 sie 
Temperaturen nicht über - 
53“C und nicht unler - 
40”C auagesetzl isl 1 
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Das Disc-Basic in diesem Sonderheft er¬ 
möglicht Ihnen, den Aufbau Ihrer Disket¬ 
ten genau zu analysieren und Bereiche 
dieses Peripheriegerätes zu nutzen, die 
bisher noch im Verborgenen lagen. Aller¬ 
dings bedient sich das Disc-Basic dabei 
einer Sprache, die dem Unbedarften zu¬ 
nächst einmal ein wenig "spanisch” Vor¬ 
kommen wird. 

Um das Programm einwandfrei zu nut¬ 
zen, sollten Sie sich erst einmal über den 
grundsätzlichen Aufbau einer Ihrer 
Disketten im klaren sein. 

Was solche Zauberworte wie Track, 
Sektor oder Offset überhaupt bedeuten, 
soll Ihnen der folgende Bericht vermit¬ 
teln. 

Daß eine Diskette, bevor sie genutzt wer¬ 
den kann, erst formatiert werden muß, 
weiß jeder, denn es steht ja im Handbuch. 
Worüber sich das Handbuch jedoch aus¬ 
schweigt: Wozu ist eine solche Formatie¬ 
rung überhaupt vonnöten und was ge¬ 
schieht dabei. 

Während des Formatierens wird die 
Diskette zur Aufnahme von Daten vor¬ 
bereitet. Das heißt, sie wird in einzelne 
Abschnitte und sogenannte Spuren 
unterteilt. 

Eine auf der Diskette abgelegte physika¬ 
lische Einheit zum Ablegen von Daten, 
besteht aus einem 512 Bytes großen 
Sektor. Insgesamt befinden sich dort 

AMSDOS 

360 Sektoren, die sich über 40 Spuren 
verteilen. 360 Sektoren geteilt durch 40 
Spuren ergibt eine Anzahl von 9 Sekto¬ 
ren pro Spur. Theoretisch ist die 
Diskette in der Lage, bis zur Spur 43 zu 
gehen. Diese unbenutzten Spuren las¬ 
sen sich jedoch nicht von der internen 
Logik des Amsdos verwalten und kön¬ 
nen nur über Programmiertricks oder 
Hilfsprogramme wie Disc-Basic ge¬ 
nutzt werden. 

Jeder Sektor wird dabei noch einmal in 
vier logische Blöcke ä 128 Bytes un¬ 
terteilt. Ein solcher Block heißt Record 
und ist die kleinste Speichereinheit aut 
der Diskette. Auch wenn Sie weniger als 
128 Bytes ablegen, ein Record wird im¬ 
mer voll genutzt. 

Anders verhält es sich bei Dateien. Hier 
wird grundsätzlich ein 1 KB großer Be¬ 
reich auf der Disk benötigt. Da sich ein 
Diskettenabschnitt von genau 1000 
Bytes physikalisch nicht darstellen läßt, 
verwendet Amsdos dafür 2 Sektoren. 

Ein 1 KB großer Block ist also in 
Wirklichkeit 2*512 Bytes = 1024 Bytes 
groß. 1024 Bytes sind die kleinste 
Speichereinheil, die Amsdos für Pro¬ 
gramme verwenden kann. Also auch, 
wenn Sie nur eine einzige Zeile mit dem 
Save- oder Openout-Kominando auf 
Diskette schreiben, ein 1 KB großer 
Block geht in jedem Fall verloren. 

Diese 1 KB-Blöcke werden mit einer 
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fortlaufenden Nummer belegt, an der 
man die genaue Position von Track und 
Sektor des Blocks bestimmen kann. 

Eine genaue Formel, wie sich so etwas 
berechnet, finden Sie im Abschluß 
dieses Berichts. 

Zum Arbeiten mit diesem Bericht neh¬ 
men Sie nun eine Leerdiskette und for¬ 
matieren sie unter Disc-Basic durch 
Eingabe von: 

IFORMAT,0 

Nachdem die Systemmeldung FOR- 
MATTNG...PLEASE WAIT, abgeschlos¬ 
sen von READY, erscheint, haben Sie 
schon eine Diskette im Systemformat 
angelegt. Dieses Format soll die Grund¬ 
lage für die weitere Arbeit sein. Alle An¬ 
gaben dieses Berichts beziehen sich auf 
das Systemformat. 

Ihre formatierte Diskette hat nun fol¬ 
gende Aufteilung: 

SPUR 0/SEKTOR 0: BOOT SEKTOR 
(CP/M) 

SPUR 0/SEKTOR 1: KONFIGURA¬ 
TIONSSEKTOR (CP/M) 

SPUR 0/SEKTOR 2-6: UNBENUTZT 
SPUR O/SEKTOR 7-8: ANFANG DES 
CCP (CP/M) 

SPUR 1/SEKTOR 0-8: ENDE CCP 
UND BDOS (CP/M) 

SPUR 2/SEKTOR 0-4: DIRECTORY 
SPUR 2/SEKTOR 5-8: ANFANG 


DATEN 

SPUR 3-8/SEKTOR 0-8: ENDE 
DATEN 

Die ersten beiden Spuren 0-1 können 
vom Anwender nicht genutzt werden, 
da sie dem CP/M Vorbehalten sind. 
Man nennt sie Systemspuren. 

Auf den ersten vier Sektoren der Spur 2 
steht das Directory. Auch dieser Be¬ 
reich sollte vom Anwender nicht verän¬ 
dert werden, da das Amsdos diesen Be¬ 
reich benötigt, um sich auf der 
Diskette zurechtzufinden. 

Nach dem Formatieren ist die Diskette 
komplett mit dem Filler-Byte &E5 ge¬ 
füllt. Wir können das kontrollieren, in¬ 
dem wir einmal den Directorysektor der 
unbenutzten Diskette lesen. Geben Sie 
dazu unter Disc-Basic V3.0 ein: 

IREAD,0,2,&41 

IEXAMINE,0 

Der Rechner gibt Ihnen in Mode 2 den 
in Abbildung 1 gezeigten Ausdruck auf 
den Bildschirm aus. 

Wie Sie sehen, ist dieser Track noch 
vollkommen unbenutzt. Saven Sie jetzt 
einmal eine Datei ab. 

Dazu geben Sie ein: 


10 REM DIES IST EIN TEST |ENTER| 

20 REM l)M ZU SEHEN WIE DIE DATEN (ENTER) 

30 REM AUF DER DISKETTE ABGELEGT WERDEN (ENTER) 

SAVE’TEST" [ENTER) 

IRE\D,0,2,&41 [ENTER] 

IEXAMINE.0 |ENTER| 


Fortsetzung auf S. 42 
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Disc Basic V3.0 


Das Amsdos der Floppy- 
station DDI-1 bietet über die 
bekannten Floppybefehle 
ziemlich wenig Möglichkei¬ 
ten, eine vernünftige Disket¬ 
tenprogrammierung vorzu- 
nchmen. Assemblerkenntnis¬ 
se und eine gute Orientierung 
im Floppy-ROM, sind Vor¬ 
aussetzung dafür, möglichst 
effizient und sicher zu arbei¬ 
ten. 

Den Anwendern, denen M- 
Code und die Mysterien des 
siebten ROM's des CPC je¬ 
doch ein Buch mit sieben 
Siegeln sind, bleiben die, im 
Grunde genommen, fantasti¬ 
schen Möglichkeiten dieser, 
in der Anfangszeit als schnel¬ 
ler Kassettenrekorder ver¬ 
schrieenen, Diskettenstation 
verschlossen. 

Um Anfängern und Profis 
den Umgang mit den Routi¬ 
nen des Controllers zu ermög¬ 
lichen bzw. zu erleichtern, 
veröffentlichen wir an dieser 
Stelle das Disc-Basic V3.0, 
welches ein ausgewogenes 
Maß an Befehlen bereithält. 
Insgesamt 20 neue Befehle 
für Hobby und professionelle 
Anwendung stehen nach 
Eingabe des ca. 1KB großen 
MC-Programmes zur Verfü¬ 
gung. Diese Befehle lassen 
sich in Gruppen unterteilen. 
Da sind zunächst einmal die 
Floppy-spezifischen Befehle 
wie: 

READ, DRIVE, TRACK, 
SEKTOR 

WRITE, DRIVE, TRACK, 
SEKTOR 

SETBUF, ADRESSE 
EXAMINE, DEVICE 
FORMATEX, DRIVE, 
TRACK, OFFSET 

Die nächste Gruppe von Be¬ 
fehlen stellt Instruktionen 
und Routinen bereit, die in 
Programmen recht nützlich 
sein können und bereits vor¬ 
handene Floppyoperationen 

vprhpsspin 

FORMAT, FORMATOFFSET 

FAST 

SLOW 

CLEAN 

DELCAT 

PCAT 

Außerdem gibt es noch Hilfs¬ 
routinen, die zwar eigentlich 
nichts mit Floppyoperatio¬ 
nen zutun haben, jedoch die 
Programmentwicklung mit 
dem Disc-Basic V3.0 erleich¬ 
tern. 

BHELP 

IN1T 

WAIT 


Und als zusätzlichen Bonus 
für MC-kundige Program¬ 
mierer einige Miniaturbefehle, 
die das Laden eines Assem¬ 
blers oder Monitors bei Kurz¬ 
routinen ersparen sollen. 
AKKU, BYTE 
HL, BYTE, BYTE 
BC, BYTE, BYTE 
DE, BYTE, BYTE 
SYS, ADRESSE 
HDUMP, START, ENDE, 
DEVICE 

Alle diese Befehle sind soge¬ 
nannte RSXen (Resistent Sy¬ 
stem Extcnsions) und müs¬ 
sen mit einem vorange¬ 
stellten Strich, den Sie über 
die Tastenkombination 
(SHIFT| [@] 

erreichen, eingegeben werden. 
Will man beispielsweise den 
Akku mit dem Wert 7 laden, 
so ist die korrekte Syntax für 
den Befehl 
IAKKU,7 

Vergessen Sie den RSX- 
Strich. so wird die System-ei¬ 
gene Fehlermeldung SYN¬ 
TAX ERROR ausgegeben, 
schreiben Sie den RSX-Be- 
fehl falsch, so erscheint UN- 
KNOWN COMMAND und 
für das Weglassen eines un¬ 
bedingt benötigten Para¬ 
metershat das Disc-Basic die 
eigene Fehlermeldung 
!!! PARAMETERFEHLER!!! 
Der Basiclader schreibt das 
Listing in den Speicher¬ 
bereich &80Ö0 und sichert 
ihn danach auf Diskette. 

Mit folgendem kleinen Loa- 
der. kann das Basic danach 
direkt in den Speicher gela¬ 
den, die Memory-Grenze ge¬ 
setzt und die Initialisie¬ 
rungsroutine aufgerufen wer¬ 
den. 

10 MEMORY &7FFF 
20 LOAD '’DB.BIN”,&8000 
30 CALL &800Ö 
40 IBHELP 

Im nachfolgenden werden 
die einzelnen Befehle genau 
erklärt, die Referenz zur 
Speicherbelegung unter Disc- 
Basic V3.0 sowie eine Routine, 
die dem Anwender hilft, auf 
einer mit IFORMATEX for¬ 
matierten Diskette etwas 
wiederzufinden. 

Befehlsbeschreibung: 

1. READ 

SYNTAX :IREAD,DRIVE, 
TRACK,SEKTOR 

FUNKTION: 

Der Befehl dient zum Lesen 
eines Sektors auf Spur 0 bis 
42 mit frei wählbarem Offset. 


Bei einer nicht formatierten 
Spur oder einem falschen 
Offset erfolgt die Disc-eigene 
Fehlerabfangroutine. Die ge¬ 
lesenen Daten werden in den 
Disc-Basic-Sektor Buffer ge¬ 
schrieben und haben eine 
Länge von 512 Bytes. 

Ob die Spur vorhanden ist und 
mit welchem Offset sie gekenn¬ 
zeichnet ist, können Sie über 
das Hilfsprogramm SEKTOR 
MAP (Listing 2) ermitteln. 
Beispiel: 

Zum Lesen des Sektors &41 
auf Spur 2 des Drives 0 geben 
Sie ein: 

IREAD,0,2,&42 

2. WRITE 

SYNTAX :IWRITE,DRIVE, 
TRACK,SEKTOR 

FUNKTION: 

Der Befehl dient zum Schrei¬ 
ben des Sektor-Buffers auf ei¬ 
nen Sektor in Spur 0 bis 42 
mit frei wählbarem Offset. 
Bei einer nicht formatierten 
Spur oder einem falschen 
Offset erfolgt die Disc-eigene 
Fehlerabfangroutine. Die zu 
schreibenden Daten haben 
eine Länge von 512 Bytes. Ob 
eine Spur vorhanden ist und 
mit welchem Offset sie gekenn- 
zeichnet ist, können Sie über 
das Hilfsprogramm SEKTOR 
MAP (Listing 3) ermitteln. 
Beispiel: 

Zum Schreiben des Buffers 
auf Sektor &41 der Spur 2 im 


Laufwerk 0. geben Sie ein: 

IW RITE,0,2,&41 

3. SETBUF 
SYNTAX :ISETBUF, 
ADRESSE 

FUNKTION: 

Festlegen der Startadresse 
des 512 Bytes großen SEKTOR 
BUFFERS. 

Beim Start des Disc-Basic 
steht dieser Buffer ab Adresse 
&A000. 

In diesem Buffer werden die 
Lesedaten bei IREAD und 
IWRITE abgelegt bzw. ent¬ 
nommen. 

Beispiel: 

Sie wollen eine Routine, die 
ab Adresse &5000 steht, auf 
Sektor &41. Spur 2, Laufwerk 
0 schreiben, so geben Sie 
ein: 

ISF.TBUF,&5000 

IWRITE,0,2,&4I 

4. EXAMINE 
SYNTAX :IEXAMINE, 
DEVICE 

FUNKTION: 

Ausgabe des momentanen 
SEKTOR BUFFER’s auf die 
vorgewählte Device. Das Aus¬ 
gabegerät kann entweder Mo¬ 
nitor [0J oder Drucker [1| 
sein. Je nach angewähltem 
Mode, wird mit unterschied¬ 
licher Spaltenbreite ausgege¬ 
ben. Die Adresse der Buffer¬ 
zeile wird mit ausgegeben. 
Neben den Hexwerten der 
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1 < **»*******************,*,*».*«*,*»«»»», 

2 '* DISCBASIC V3.0 BY CPC INTERNATIONAL * 

3 '*-* 

4 '* COPYRIGHT 1986 BY THOMAS MORGEN * 

5 i *•****»•••**•*»»*******•*•*,••••«•*•*•** 

6 ' 

7 DATA &01,&0D,&80,&21,&09,&80,&C3,&D1,£BC,&F8,&A5 
,&0D,&80,&4B,&80,&C3,&A6,&80,&C3,&BE,&80,&C3,&D6,& 
80,&C3, 3395 

8 DATA &E8,&80,&C3,&FB,&80,&C3,&0B,&81 ,&C3,&21,&81 
,&C3,&2E, &81,&C3,&A7,&81,&C3,&6D,&82,&C3,&4D,&85,& 
C3,&40 , 3585 

9 DATA &86,&C3,&57,&86,&C3,&5B,&86,&C3,&68,&86,&C3 
,&B6,886,&C3,&C8,&86,&C3 f &DA,&86,&C3,&EC,&86,SC3,& 
FF,&86, 4139 

10 DATA &52,&45,&41 ,4C4,457 r Ä52,449,454 ,ÄC5- # 453,44 
5,&54,&42,&55,&C6,&46,& 41,&53,&D4,&53,&4C,&4F,&D7, 
&44,&45, 2540 

11 DATA &4C,&43,&41,&D4,&50,&43,&41,&D4,&46,&4F,&5 
2,&4D,&41,&54,&45,&D8,&46,&4F,&52,&4D,&41 ,&D4,&42, 
&48 , & 45 , 2378 

12 DATA &4C,&D0,&45,&58,&41 / &4D,&49,&4E,&C5,&43,&4 
C,&45,&41,&CE,&57,&41,&49,&D4,&49,&4E,&49,&D4,&48, 
&44,&55, 2512 

13 DATA &4D,&D0 f &48,&CC,&44,&C5,&42,&C3,&41,&4B,&4 
B,&D5,&53,&59,&D3,&00,&FE,&03,&C2,&15,&86,&2A,&E6, 
&80,&DD, 3125 

14 DATA &5E,&04,&DD,&56,&02,&DD,&4E,&00,&DF,&BA,&8 
0,&66,&C6,&07,&C9,&FE,&03,&C2,&15,&86,&2A,&E6,&80, 
SDD,&5E, 3072 

15 DATA &04,&DD,&56,&02,&DD,&4E,&00,&DF,&D2,&80,&4 
E,&C6,S07,&C9,&FE,&01,&C2,&15,&86,&DD,&56,&01,&DD, 
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&5E,400, 2884 

16 DATA 4ED,453,4E6,480,4C9, 400 ,&A0, 421 ,&F2,&80,&D 
F,4EE,480,40D,4C6, 407,4C9,423,400,4C8,400,401,&01, 
40A,400, 2697 

17 DATA 403,421,402,481,4DF,4EE,480 ,4C9,432,400,4F 
A,&00,4AF,40F,400,401,403,43E,40C,&CD,&5A,&BB,43E, 
4E5,432, 2360 

18 DATA 401,4A7,411,400,490,4CD,49B,4BC,43E,400,43 
2,&01,4A7,4C9,4CD,4EB,485,411,400,490,4CD, 49B,&BC, 
&CD,400, 2845 

19 DATA &86,4C9,&FE, 403,4C2,&15,&86 r 4DD,45E,404,4D 
D,456,402,4DD,47E,400,432,480,481,421,481,481,406, 
409,47A, 2651 

20 DATA 477,423,423,423,423,410,4F8,43A,480,481,43 
2,483,481,430,432,497,481,43C,832,487,481,430,432, 
&9B,481, 2306 

21 DATA 43C,432,48B,481,43C,432,49F,481,430,432,48 
F,481 ,430,432,4 A3,481,&3C,432,493,&81,43A,480,481, 
44F,421, 2373 

22 DATA 481 ,481 ,4DF,47D,481,409,452,406,407,441,40 
0,&00,441 / &02,&00,&00,&43 / &02,&00,&00,&45,&02,&00, 
&00 , &47 , 1566 

23 DATA &02 f &00,&00,&49,&02,&00,&00,&42 r &02,&00,&0 
0,&44,&02,&00,&00,&46 f &02,&00,&00,&48,&02,&00.&00, 
&FE,&01, 616 

24 DATA &C2,&15,&86,&DD,&22,41E,&82,&21,400,482,&C 

D, &18,&86,S3E,&00,&32,&1F,&82,&3A r &1F,&82,&57.&3A, 
&20,&82 , 2089 

25 DATA S5F,&3A,&21,&82,&4F,&3A,&1E,&82,&FE,&01,&2 
8 ,&05,&21,&25,&82,&18,&03,&21,&49,&82,&DF, &22 ,&82, 
&3A,&1F, 1852 

26 DATA &82,&FE,&27,&C8,&3C,&32,&1F,&82,&3A,&1E,&8 
2,&FE,&01,&28,&05,&21,&25,&82,418,&03,421,&49 / &82, 
&06 , &09 , 1890 

27 DATA &3A,&1F,&82,&77,&23,&23,&23,&23,&10,&F6,&1 
8,&BB,&07,&0A,&0D,&46,&4F,&52,&4D,&41,&54,&54 ,&49, 
&4E,&47, 1744 

28 DATA 42E,42E,42-E,450,44C,445,441 ,453,445,420,45 
7,&41 ,&49 r &54,40A,&OD,&00,&00,&27,&00,&41 ,452,4C6, 

407.400, 1335 

29 DATA 400,441,402,400,400,443,402,400,400,445,40 
2,400,400,447,402,400,400,449,402,400,400,442,402, 

400.400, 423 

30 DATA 444,402,400,400,446,402,400,400,448,402,40 
0,400,4C1,402,400,400,4C3,402,400,400,4C5,402,400, 
400,4C7, 1006 

31 DATA 402,400,400,409,402,400,400,4C2,402,400,40 
0,404,402,400,400,406,402,400,400,408,402,421,470, 
482,47E, 1414 

32 DATA 4FE,400,4C8,4CD,45A,4BB,423,403,470,482,4C 

9,400,418,444,449,453,443,442,441,453,449,443,420, 

456,431, 2457 

33 DATA 42E,430,420,442,459,420,454,44D,420,42E,42 

E, 42E,420,448,445,440,450,42D,450,441,447,445,418, 
40A,40A, 1347 

34 DATA 40D,470,452,445,441,444,42E,42E,42E,42E,42 

C, 45B,444,452,449,456,445,4 5D,42C,45B,454,452,441 , 
443,448, 1719 

35 DATA 45D,42O,45B,453,445,44B,454,44F,452,45D,40 

A, 40D,470,457,452,449,454,445,42E,42E,42E,42C,45B, 

444.452, 1758 

36 DATA 449,456,445,45D,42C,45B,454,452,441,443,44 

B, 45D,42C,45B,453,445,44B,454,44F,452,45D,40A,40D, 

470.453, 1852 

37 DATA 445,454,442,455,446,42E,42E,42C,45B,441,44 
4,452,445,453,453,445,45D,40A,40D,470,448,444,455, 

44D,450, 1742 

38 DATA 42E,42E,42E,42C,45B,453,454,441 ,452,454,45 

D, 42C,45B,445,44E,444,445,45D,42O,45B,458,45D,40A, 
40D,47C, 1739 

39 DATA 446,441,453,454,42E,42E,42E,42E,42E,430,45 
4,455,452,442,44F,420,444,44F,453,420,44F,44E,43E, 
40A,40D, 1524 

40 DATA 470,453,440,44F,457,42E,42E,42E,42E,42E,43 

C, 454,455,452,4 42,44F,420,444,44F,4 53,420,44F,4 46, 
446,43E, 1710 

41 DATA 40A,40D,470,457,441,449,454,42E,42E,42E,42 

E, 42E,430,457,441,452,454,445,420,441,455,446,420, 
454,441, 1566 

42 DATA 453,454,445,44E,444,452,455,443,44B,43E,40 
A,40D,47C,449,44E,449,454,42E,42E,42E,42E,42E,43O, 

44B,445, 1642 

43 DATA 459,442,44F,441,452,444,420,442,449,440,44 
4,453,443,448,449,452,44D,420,449,44E,449,454,43E, 
40A,40D, 1655 

44 DATA 470,444,445,440,443,441,454,42E,42E,42E,43 
0,441,455,453,447,441,442,445,420,447,445,44C,44F, 

445.453, 1734 

45 DATA 443,448,454,445,452,420,446,449,440,445,45 


3,43E,40A,40D,47C,450,443,441,454,42E,42E,42E,42E, 
42E,43C, 1572 

46 DATA 444,449,452,445,443,454,44F,452,459,420,44 
1,455,446,420,444,452,455,443,44B,445,452,43E,40A, 
40D,470, 1714 

47 DATA 446,44F,452,44D,441,454,445,458,420,45B,44 
4,452,449,456,445,45D,42C,45B,454,452,441,443,44B, 
45D,42C, 1865 

48 DATA 45B,44F,446,446,453,445,454,45D,40A,40D,47 
C,446,44F,452,440,441,454,42E,42E,42C,45B,458,45D, 

420,420, 1715 

49 DATA 430,430,42D,456,445,44E,444,44F,452,42F,43 
1,420,444,441,454,441,420,44F,44E,44C,459,43E,40A, 
40D,47C, 1601 

50 DATA 443,440,445,441,44E,42E,42E,42E,42E,430,44 

C, 44F,445,453,443,448,454,420,441,440,440,445,420, 
442,441 , 1610 

51 DATA 44B,420,444,441,454,445,449,445,44E,43E,40 

A, 40D,470,442,448,445,440,450,42E,42E,42E,42E,43C, 
440,449, 1578 

52 DATA 453,454,445,420,444,445,452,420,442,445,44 
6,445,448,44C,445,43E,40A,40D,470,445,458,441,44D, 
449,44E, 1669 

53 DATA 445,420,42C,45B,458,45D,420,420,430,430,42 

D, 44D,44F,44E,449,454,44F,452,42F,431,42D,444,452, 
455,443, 1629 

54 DATA 44B,445,452,43E,40A,40D,47C,Ä48,44C,42E,42 

E, 42E,42E,42E,42E,42C,45B,458,45D,42C,45B,459,45D, 

420.420, 1556 

55 DATA 430,448,440,420,452,445,447,449,453,454,44 
5,4 52,420,440,441 ,444,445,44E,43E,40A,40D,47C,4 44, 
445,42E, 1633 

56 DATA 42E,42E,42E,42E,42E,42C,45B,458,45D,420,45 

B, 459,45D,420,420,430,444,445,420,4 52,4 45,447,449, 

453,454, 1618 

57 DATA 445,452,420,440,441,444,445,44E,43E,40A,40 

D, 470,442,443,42E,42E,42E,42E,42E,42E,42C,45B,458, 
45D,42C, 1517 

58 DATA 45B,459,45D,420,420,430,442,443,420,452,44 
5,447,449,453,454,445,452,420,440,441,444,445,44E, 
43E,40A, 1635 

59 DATA 40D,470,441,44B,44B,455,42E,42E,42E,42E,42 

C, 45B,458,45D,420,420,420,420,420,420,430,441,44B, 
44B,455, 1489 

60 DATA 420,440,441,444,445,44E,43E,40A,40D,470,45 
3,459,453,42E,42E,42E,42E,42E,42C,45B,441,444,452, 
445,453, 1584 

61 DATA 453,445,45D,420,40A,40D,400,4FE,401,402,41 
5,486,43E,40C,4CD,45A,4BB,4DD,47E,400,4FE,401,4CC, 
4EB,485, 2634 

62 DATA 42A,4E6,480,411,400,402,419,422,400,485,42 

A, 4E6,480,4CD,491,486,470,4CD,4CE,485,47D,4CD,4CE, 
485,43E, 3098 

63 DATA 420,4CD,45A,4BB,43A,4B4,486,447,47E,4CD,4C 

E, 485,43E,420,4CD,45A,4BB,423,410,4F4,43E,420,4CD, 
45A,4BB, 3074 

64 DATA 4ED,45B,4B4,486,4B7,4ED,452,43A,4B4,486,44 
7,47E,423,4CB,4BF,4FE,420,430,402,43E,42E,4CD,45A, 
4BB,410, 3084 

65 DATA 4F1 ,43E,40D,4CD,45A,4BB,43E,40A,4CD,45A,4B 

B, 4E5,4ED,45B,4CC,485,4B7,4ED,452,4E1,438,4AF,428, 
4AD,43A, 3475 

66 DATA 4CB,485,4FE,401,400,400,486,409,400,400,40 

0,45F,40F,40F,40F,40F,4E6,40F,4CD,4DF,485,47B,4E6, 
40F,4CD, 2664 2 

67 DATA 4DF,485,4C9,4FE,40A,438,402,406,407,406,43 
0,4CD,45A,4BB,4C9,43E,401,432,4CB,485,43E,4C3,432, 
45A,4BB, 3046 

68 DATA 43E,42B,432,45B,4BB,43E,4BD,432,450,4BB,4C 
9,43E,400,432,4CB,485,43E,4CF,432,45A,4BB,43E,400, 
432,45B, 2461 

69 DATA 4BB,43E,494,432,450,4BB,409,421,423,486,47 
E,4FE,400,4C8,4CD,45A,4BB,423,403,418,486,40A,40D, 

421.421, 2668 

70 DATA 421,420,450,441,452,441,44D,445,454,445,45 
2,446,445,448,440,445,452,420,421,421,421,407,40A, 
40D,400, 1337 

71 DATA 43E,401,4DD,421,44D,486,4DF,44A,486,409,42 

D, 4C0,407,44F,486,405,4 52,486,42A,42E,442,441 ,44B, 
4CD,406, 2343 

72 DATA 4BB,4C9,4CD,400,4BB,4CD,44E,4BB,4CD,4BA,4B 
B,4CD,4BF,4BB,4C9,4FE,403,402,415,486,43E,40C,4CD, 
45A,4BB, 3774 

73 DATA 4DD,47E,400,4FE,401,4CC,4EB,485,4DD,456,40 
3,4DD,45E,402,4ED,453,4CC,485,4DD,466,405,4DD,46E, 
404,4CD, 3326 

74 DATA 491,486,4CD,46F,485,409,4CD,411,4BC,4FE,40 
2,4CA,4AE,486,4FE,401,4CA,4A6,486,43E,403,432,4B4, 
486,403, 3486 
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^ 5 ! >n^ T ^-,^ B3 ' &86,&3E,&08 ' &32 ' &B4 ' &86 ' &c3 » &B 3,&86,&3 
&DD^&7E^2849 , ^ 86, ^ C ^ , ^°^ , ^° 0, ,&02,&C2,&15,&86, 

76 DATA &02,&32,&F8,&86,&DD,&7E,&00,&32,&F9,&86,&C 
9,&FE,&02,&C2,&15,&86,&DD,&7E,&02,&32,&FA,&86,&DD, 
&7E,&00, 3150 

77 DATA &32,&FB,&86,&C9,&FE,&02,&C2,&15,&86 ,&DD,&7 
E,&02,&32,&FC, &86, &DD,&7E,&00,&32,&FD,&86,&C9,&FE. 
&01,&C2, 3460 

78 DATA &15,&86 , &DD,&7E,&00,&32,&FE,&86,&C9,&00,&0 
0,&00,&00,&00,&00,&00,&FE, & 01,&C2,&15,&86,&DD,&56, 
&01,&DD, 2274 

79 DATA &5E,&00,SED,&53,&30,&87,&3A,&F8,&86,&67,&3 
A,&F9,&86,&6F,&3A,&FA,&86,&57,&3A,&FB,&86,&5F,&3A, 
&FC,&86, 3203 


80 DATA &47,&3A,&FD,&86,&4F,&3A,&FE,&86,&DD,&2A,&3 
0,&87,&DD,&E9,&C9,&01,&AC,&00, 2315 

81 dat=0 : sz=0 : dz = 1 

82 FOR adr =-32768 TO-30926 


83 

84 

85 

86 

87 

88 
dz 
89 


READ byte : dat=dat+1 

sz=sz+byte 

POKE adr,byte 

IF dat < 25 AND adr < -30926 THEN 90 
READ chksum 

IF chksumosz THEN PRINT "Fehler in Zeile 


dz =dz + 1 : sz=0 : dat=0 

90 NEXT adr 

91 SAVE"DB",B,&8000,&732 

92 END 


Adressen, werden am rechten 
Bildschirmrand auch noch 
die entsprechenden ASCII- 
Zeichen ausgegeben. 

Beispiel: 

Der Directorysektor einer, im 
Data-Format beschriebenen 
Diskette, soll auf Drucker mit 
16 Zeichen Breite ausgedruckt 
werden. Sie geben ein: 
MODE 2 
IREAD,0,0,&C1 
IEXAMINE,1 

5. FORMATEX 
SYNTAX :lFORMATEX, 
DRIVE,TRACK,OFFSET 

FUNKTION: 

Formatieren eines einzelnen 
Tracks mit beliebigem Offset. 
Mit diesem Befehl sollte man 
vorsichtig umgehen - überfor¬ 
matierte Daten sind unwie- 
derruflich verloren. Aller¬ 
dings ist diese Routine auch 
sehr nützlich beim Retten 
von Disketten, auf denen 
eine Spur durch Magnetis¬ 
mus oder ähnliches verloren- 
gegangen ist. Die Tracks 
(Spuren) können im Bereich 
0-42 liegen. Auch zum 
Schützen von Disketten ist 
dieser Befehl sehr nützlich. 
Eine nicht formatierte Spur, 
odereine mit falschem Offset 
läßt sich nicht mehr so ohne 
weiteres kopieren. Der Offset 
wird vom Anwender bestimmt 
Standard-Offsets sind &41 
[Systemformat-CP/M], &C1 
[Data Only] und &01 [IBM 
Format]. Die Lage der Sekto¬ 
ren auf der Spur wird vom 
Programm bestimmt. Hier 
sind keine Manipulationen 
möglich. Die Ablage erfolgt 
nach Standard und sieht am 
Beispiel IBM Format folgen¬ 
dermaßen aus: 

&01 &06 &03 &07 &04 &08 

&05 &09 

Beispiel: 

Zum Formatieren einer Dis¬ 
kette im IBM Format bis zur 
Spur 42 geben Sie ein: 

10 FOR TRACK = 0 TO 42 
20 PRINT TRACK 
30 IFORMATEX.O,TRACK, 
&01 

40 NEXT TRACK 
RUN [ENTER] 


** DISCBASIC V3.0 BY CPC INT ** 

• * « * 

** 1986 THOMAS MORGEN ** 


ORG &8000 
LD BC,RSX 
LD HL,KERNAL 
JP &BCD1 
KERNAL.-DEFS 4 


RSX:DEFW TABLE 
JP LESE 
JP SCHREIBE 
JP LESBUF 
JP FAST 
JP SLOW 
JP DELCAT 
JP PCAT 
JP FORMATEX 
JP FORMAT 
JP HELP 
JP AUSGA 
JP CLEAN 
JP WARTE 
JP REDEF 
JP MINIMON 
JP HREG 
JP DREG 
JP BREG 
JP AREG 
JP SYSCA 


TABLE:DEFM "REA" 
DEFB "D"+&80 
DEFM "WRIT" 

DEFB "E"+&80 
DEFM "SETBU" 

DEFB "F"+&80 
DEFM "FAS" 

DEFB "T"+&80 
DEFM "SLO" 

DEFB "W"+&80 
DEFM "DELCA" 

DEFB "T"+&80 
DEFM "PCA" 

DEFB "T"+&80 
DEFM "FORMATE" 
DEFB "X"+ä80 
DEFM "FORMA" 

DEFB "T"+&80 
DEFM "BHEL" 
"P"+&80 
"EXAMIN" 

"E"+&80 
DEFM "CLEA" 

DEFB "N"+&80 
DEFM "WAI" 

DEFB "T"+&80 
DEFM "INI" 

DEFB "T"+&80 
DEFM "HDUM" 
"P"+&80 

llu” 


DEFB 

DEFM 

DEFB 


DEFB 

DEFB 


'H' 


DEFB "L"+&80 
DEFB "D" 

DEFB "E"+&80 
DEFB "B" 

DEFB "C"+S80 
DEFM "AKK" 
DEFB "U"+&80 
DEFM "SY" 
DEFB "S"+&80 
NOP 


;STARTADRESSE 
;SPRUNGTABELLE 
;RSX BUFFER 
;LOG EXT 

; 4 BYTE RSX BUFFER 


;SPRUNGTABELLE 


;BEFEHLSWORTE 
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IM MIM INI 


LESE:CP 3 
JP NZ,FEHLER 
LD HL,(BUFFER) 

LD E,(IX+4 ) 

LD D,(IX+2) 

LD C,(IX) 

RST &18,LESEADR 

LESEADR: DEFB &66,&C6,&07 

RET 

SCHREIBE: CP 3 
JP NZ,FEHLER 
LD HL,(BUFFER) 

LD E,{IX+ 4) 

LD D,(IX+2) 

LD C,(IX) 

RST &18,SCHREIBADR 
SCHREIBADR: DEFB &4E,&C6,&07 
RET 

LESBUF: CP 1 
JP NZ,FEHLER 
LD D,(IX+1 ) 

LD E,(IX) 

LD (BUFFER),DE 
RET 

BUFFER:DEFB &00,&A0 

FAST:LD HL,NEWTAB 

RST & 18,NEUADR 

NEUADR: DEFB &0D,&C6,&07 

RET 

NEWTAB: DEFB &23,&00,&C8,&00 
DEFB &01,&01, &0A,&00 
DEFB &03 

SLOW:LD HL,OLDTAB 
RST &18,NEUADR 
RET 

OLDTAB: DEFB &32,S00,&FA,&00 
DEFB &AF,&0F,&0C,&01 
DEFB &03 

DELCAT.-LD A,&0C 
CALL &BB5A 
LD A,&E5 
LD (SA701),A 
LD DE,&9000 
CALL &BC9B 
LD A,&00 
LD (&A701 ) , A 
RET 

PCAT:CALL SWAP 
ld de,&9000 
CALL &BC9B 
CALL SWAPOFF 
RET 

FORMATEX:CP 3 
JP NZ,FEHLER 
LD E,(IX+4) 

LD D,(IX+2) 

LD A,(IX) 

LD (OFLAG),A 
LD HL,ETABE 
LD B,09 
SELOOP:LD A,D 
LD (HL),A 
INC HL 
INC HL 
INC HL 
INC HL 
DJNZ SELOOP 
LD A,(OFLAG) 

LD (SEC1),A 
INC A 

LD (SEC6),A 
INC A 

LD (SEC2),A 
INC A 

LD (SEC7),A 
INC A 

LD (SEC3),A 
INC A 

LD (SEC8),A 
INC A 

LD (SEC4),A 
INC A 

LD (SEC9),A 
INC A 


- *** SUB SEKTOR LESEN **• 

;DREI PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;BUFFER NACH HL 
;ERSTER PARAMETER (DRIVE) 

;ZWEITER PARAMETER (TRACK) 

;DRITTER PARAMETER (SECTOR) 

;READ SECTOR 
;ROM 7 - ADRESSE &C666 
; ZURUECK 

-- *** SUB SEKTOR SCHREIBEN *** 

;DREI PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;BUFFER NACH HL 
;ERSTER PARAMETER (DRIVE) 

;ZWEITER PARAMETER (TRACK) 

;DRITTER PARAMETER (SECTOR) 

;WRITE SEKTOR 

;ROM 7 - ADRESSE &C64E 

;ZURUECK 

-- *** SUB BUFFER SETZEN • * * 

;EIN PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;BYTE 1 ADRESSE NACH D 
;BYTE 2 ADRESSE NACH E 
;BUFFER = DE 
;ZURUECK 

;BUFFER POINTER DEFAULT &A000 
-- *** SUB FAST *** 

;TIMINGTABELLE (NEU) 

;TIMING SETZEN 

;ROM 7 - ADRESSE &C60D 

;ZURUECK 

;NEUE TIMINGTABELLE 
;PART 2 
;PART 3 

-- *** SUB SLOW *** 

;TIMINGTABELLE (ALT) 

;TIMING SETZEN 
;ZURUECK 

;ALTE TIMINGTABELLE 
;PART 2 
;PART 3 

•- *** SUB DELCAT * * * 

;CHAR FOR CLS 
;CLS AUSFUEHREN 
;AKKU = 229 
;USER BEREICH AUF 229 
;DIRBUFFER BEI &9000 
? CATALOG 
;AKKU = 0 

;USER BEREICH AUF 0 
;ZURUECK 

- *** SUB PCAT *** 

;VEKTOR EINRICHTEN 
;DIRBUFFER BEI &9000 
;CATALOG 

;VEKTOR RESTAURIEREN 
;ZURUECK 

- *** SUB FORMATEX *** 

: 3 PARAMETER ? 

ZURUECK IF NOT 

DRITTER PARAMETER [DRIVE) 

ZWEITER PARAMETER (TRACK) 

OFFSET NACH A 

ERSTER PARAMETER [OFFSET) 

TABELLE NACH HL 
NINE TIMES 
TRACK NACH A 
TRACK NACH HL 

FOUR TIMES TRACK SELECT IN TABELLE 
HL = HL + 1 
HL = HL + 1 
HL = HL + 1 
SCHLEIFE ZURUECK 
OFFSET NACH A 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 
OFFSET IN TABELLE 
A = A + 1 



Wenn Sie 


programmieren... 


und interessante Anwendungen 
oder Spiele entwickelt haben, 
nützliche Routinen 
oder Utilities 
programmiert haben, 
sollten Sie sich 
mit uns in Verbindung 
setzen. Wir suchen ständig 
gute Software zur Ver¬ 
öffentlichung 

DMV Verlag 
Postfach ISO 
3440 Eschwege 


TAIFUN 

BASIC-Compiler 

CRC 444: DM 124,90 
CRC «64/6128: DM 139,90 

Das überlegene Programmiersystem für alle 
CPC's (Kassette und Diskette) ermöglicht 
Ihnen leistungsfähige und effiziente Pro¬ 
grammierweise. Über den (noch wesentlich 
leistungsschwacheren) Vorgänger ISSCOM 1 
schrieben die Fachmagazme: 

CHIP (8/85) 


Bei ISSCOM 1 aus dem gleichen Hause 
handelt es sich um eines der wohl wichtig¬ 
sten Programme für den Schneider über¬ 
haupt" 

Computer-Schau (7/85) 


ISSCOM 1 wendet sich an den Basic-Pro- 
grammierer und zählt wohl zu den wichtig¬ 
sten Hilfsmitteln, denn 
CHIP (1/861. 


Mit ISSCOM 1 steht ein leistungsfähiger 
Compiler für den CPC 464 zur Verfügung, mit 
dem es möglich ist, BASIC-Programme en 
taloc in die für Computer verständliche 
Maschinensprache zu übersetzen..." 

Der Vorteil: Die Ausführungsgeschwindig¬ 
keit erhöht sich um den Faktor 20 bis 200.' 
Eine Aufzählung der zusätzlichen Vorteile 
von TAIFUN würde den Rahmen dieser An¬ 
zeige bei weitem sprengen, denn er stellt nun 
gleichzeitig noch eine sehr umfangreiche 
BASIC-Befehlserweiferting (CIRCLE, FILL 
etc.) dar. 

Kostenlose Informationen über unser gesam¬ 
tes Lreferspektrum und Bestellungen bei: 


GERDES 

Imperial SOFTWare Systems 
Heidegartenstraße 36 
D 3300 Bonn I 
Tel.: 02 28 / 25 24 74 
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6. FORMAT 
SYNTAX :lFORMAT,FOR¬ 
MATOFFSET 
FUNKTION: 

Der Befehl Format stellt eine 
von Basic aus aufrufbare 
Routine zur Verfügung, die 
eine Diskette, je nach gewähl¬ 
tem Offset, komplett forma¬ 
tiert und somit das Booten von 
CP/M abdingbar macht. Das 
Formatoffset kann im Data 
Only [1] oder Vendor Format 
[0] erfolgen. 

!! ACHTUNG !! 

Diese Routine hat im Gegen¬ 
satz zu FORMAT.COM ihrer 
CP/M-Masterdiskette keine 
Sicherheitsabfrage und legt 
sofort nach Eingabe los. 
Beispiel: 

Eine Diskette soll im Vendor 
Format formatiert werden. 
Sie geben ein: 

IFORMAT,0 

7. FAST 

SYNTAX : IFAST 
FUNKTION: 

Dieser Befehl spezifiziert die 
Timingtabelle der Floppy 
neu und ermöglicht einen bis 
zu 20 % schnelleren Zugriff 
auf alle Floppyoperationen. 

8. SLOW 

SYNTAX :ISLOW 
FUNKTION: 

Wiederherstellen der alten Ti¬ 
mingtabelle nach IFAST. 

9. CLEAN 
SYNTAX :lCLEAN 
FUNKTION: 

Der Befehl dient dazu, auf ei¬ 
ner überfüllten Diskette Platz 
zu schaffen, indem alle BAK- 
Dateien gelöscht werden. 

10. DELCAT 
SYNTAX :IDELCAT 
FUNKTION: 

Der Befehl setzt die User¬ 
nummer des Drives auf &E5 
und führt einen Catalog aus. 
Auf der USER befinden sich 
alle gelöschten Files. Mit 
POKE &A701,&E5:LOAD 
”DATEINAME”:POKE 
&A70I,0:SAVE "DATEI¬ 
NAME” [ENTER | 
kann ein irrtümlich gelösch¬ 
tes File wieder in das nor¬ 
male Directory gebracht wer¬ 
den. 

11. PCAT 
SYNTAX :IPCAT 
FUNKTION: 

Der Befehl verbiegt die Bild¬ 
schirmausgaberoutine auf 
den Drucker, führt ein CAT 
aus und stellt den Screen 
Vektor danach wieder zu¬ 
rück. Dadurch erhält man ei¬ 
nen Ausdruck des über IUSER 
angewählten Directorys auf 


LD (SEC5),A 
LD A,(OFLAG) 
LD C,A 
LD HL,ETABE 
RST &18,EFORM 
RET 


EFORM:DEFB 852,SC6 
OFLAG:DEFB 8 41 
ETABE:DEFB 800,800 
SEC1:DEFB &41 ,&02, 
SEC2:DEFB 843,802, 
SEC3:DEFB 845,802, 
SEC4:DEFB 847,802, 
SEC5:DEFB 849,802, 
SEC6:DEFB 842,802, 
SEC7:DEFB 844,802, 
SEC8:DEFB 846,802, 
SEC9:DEFB 848,802, 


,807 


800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 


FORMAT:cp 1 
JP NZ,FEHLER 
LD (VFLAG >,IX 
LD HL,WAIT 
CALL TXTOUT 
LD A,0 

LD (VFLAG1 ),A 
REPEATrLD A,(VFLAG1) 
LD D, A 

LD A,(VFLAG2) 

LD E,A 

LD A,(VE LAG3) 

LD C,A 
LD A,(VFLAG) 

CP 1 

JR Z,SKIP 

LD HL,TABEL1 

JR AUFRUF 

SKIP:LD HL,TABEL2 

AUFRUF:RST 818,F0RMCA 

LD A,(VFLAG1 ) 

CP 827 
RET Z 
INC A 

LD (VFLAG1 ),A 
LD A,(VFLAG) 

CP 1 

JR Z,SKIP2 

LD HL,TABEL1 

JR AUFRUF2 

SKIP2:LD HL,TABEL2 

AUFRUF2:LD B,9 

VLOOP:LD A,(VFLAG1) 

LD (HL),A 
INC HL 
INC HL 
INC HL 
INC HL 
DJNZ VLOOP 
JR REPEAT 


WAITrDEFB 807,&0A,80D 

DEFM "FORMATTING...PLEASE WAIT" 

DEFB 80A,80D,800 


VFLAG: DEFB 00 
VFLAG1: DEFB 827 
VFLAG2: DEFB 00 
VFLAG3: DEFB 841 
FORMCA: DEFB 852,8C6,807 


TABEL1 


DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 


800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 

800,800 


,841,802 
,843,802 
,845,802 
,847,802 
,849,802 
,842,802 
,844,802 
,846,802 
,848,802 


TABEL2: DEFB 800,800,SCI,802 
DEFB 800,800,8C3,802 
DEFB 800,800,SC5,802 
DEFB 800,800,8C7,802 
DEFB 800,800,8C9,802 
DEFB 800,800,8C2,802 
DEFB 800,800,8C4,802 
DEFB 800,800,8C6,802 
DEFB 800,800,8C8,802 


;OFFSET IN TABELLE 
;OFFSET ZURUECK 
;OFFSET AUF SEKTOR 1 
;FORMAT TABELLE 
;FORMATIERE TRACK 
;ZURUECK 

*** SUB TABELLE UND FLAGS FUER FORMATEX *** 
ROM 7, ADRESSE SC652 
OFFSET DEFAULT 841 
TABELLE FUER FORMATEX 
-SEKTOR 1 
2 

3 

4 

5 

6 

7 


HELP:LD HL,MESS 


-SEKTOR 
-SEKTOR 
-SEKTOR 
-SEKTOR 
-SEKTOR 
-SEKTOR 
-SEKTOR 8 
-SEKTOR 9 

*** SUB FORMAT *** 

EIN PARAMETER ? 

PARAMETERFEHLER IF NOT 
PARAMETER FLAG SETZEN 
BITTE WARTEN 
AUSGEBEN 
STARTTRACK = 0 
FLAG MOMENTANER TRACK 
MOMENTANER TRACK NACH A 
UND IN REGISTER D 
FLAG FUER DRIVE SELECT 
IN REGISTER E 
FLAG FUER SEKTOROFFSET 
IN REGISTER C 
PARAMETER NACH A 
WAR 1 GEWAEHLT ? 

JA, SPRINGE NACH SKIP 
NEIN, LADE TABELLE 1 
NEIN, SPRINGE ROMCALL 
JA, LADE TABELLE 2 
FORMATIERE TRACK 
TRACK NCH A 
GROESSER 827 ? 

ZURUECK IF TRUE 
ERHOEHE A IF NOT 
TRACK = TRACK + 1 
PARAMETER NACH A 
WAR 1 GEWAEHLT ? 

JA, SPRINGE NACH SKIP2 
NEIN, LADE TABELLE 1 
NEIN, SPRINGE AUFRUF2 
JA, LADE TABELLE 2 
ANZAHL SEKTOREN = 9 
TRACK NACH A 
TRACK NACH HL 
FOUR TIMES 
HL = HL + 1 

HL = HL + 1 

HL = HL + 1 

9 TIMES SCHLEIFE 

NAECHSTER TRACK 
*** SUB WARTETEXT *** 

KLINGEL LF/CR 
VARTETEXT 

LF/CR ENDE TABELLE 

*** SUB FORMAT FLAGS *** 

PARAMETER FLAG 
TRACK FLAG 
DRIVE SELECT FLAG 
SECTOR OFFSET FLAG 
ROM 7 ADRESSE SC652 

*** SUB FORMAT TABELLE 1 IVENDOR] *** 

- SECTOR 1 

- SECTOR 2 

- SECTOR 3 

- SECTOR 4 

- SECTOR 5 

- SECTOR 6 
SECTOR 7 

- SECTOR 8 
SECTOR 9 

*** SUB FORMAT TABELLE 2 [DATA ONLYJ *** 

-SECTOR 1 

-SECTOR 2 

-SECTOR 3 

-SECTOR 4 

-SECTOR 5 

-SECTOR 6 

-SECTOR 7 

-SECTOR 8 

-SECTOR '9 

•** SUB HELP *** 

TEXT IN HL 
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LOOP:LD A,(HL) 
CP 0 
RET Z 

CALL &BB5A 
INC ML 
JP LOOP 
RET 


80C 


;CHAR TO A 
;END OF TEXT ? 

;ZURUECK IF TRUE 
;CHAR TO BILDSCHIRM 
; HL = HL - 1 
;AUSGABE FORTSETZEN 
;ZURUECK 

• *** TEXT-TABELLE *** 


TM 


HELP-PAGE" 


., [DRIVE J, (TRACK],[SEKTOR)“ 
,,[ADRESSE)" 

,,[START],(ENDE),[X]" 


MESS: DEFB 
DEFB 818 

DEFM "DISCBASIC VI .0 BY 
DEFB 818,80A,S0A,S0D 

DEFM "(READ--[DRIVE],(TRACK),[SEKTOR]" 

DEFB 80A,80D 
DEFM " WRITE. . 

DEFB &0A,80D 
DEFM "iSETBUF. 

DEFB &0A, 80D 
DEFM " | HDUMP. . 

DEFB &0A,80D 

DEFM "jFAST.<TURBO DOS ON>" 

DEFB 80A, 80D 

DEFM "ISLOW.<TURBO DOS OFF>" 

DEFB 80A,80D 

DEFM "1WAIT.<WARTE AUF TASTENDRUCK >" 

DEFB 80A,SOD 

DEFM "UNIT.'KEYBOARD,BILDSCHIRM INIT>" 

DEFB 80A,&0D 

DEFM " ,'DELCAT. . . «AUSGABE GELOESCIITER FILES >" 
DEFB SOA,SOD 

DEFM "|PCAT.«DIRECTORY AUF DRUCKER>" 

DEFB 80A,&0D 

DEFM "|FORMATEX,[DRIVE],[TRACK),[OFFSET]" 
DEFB 80A,&0D 

(X) <0-VENDOR/1-DATA ONLY>" 


DEFM "|FORMAT. 
DEFB 80A,800 
DEFM CLEAN.. 
DEFB 80A,80D 
DEFM "iBHELP.. 
DEFB 80A,80D 


.'LOESCHT ALLE BAK DATEIEN >" 
.'LISTE DER BEFEHLE >" 


DEFM 

DEFB 

"iEXAMINE 
80A,80D 

,IX) <0- 

-MONITOR/1-DRUCKER >" 

DEFM 

DEFB 

" ! HL. 

80A,80D 

, (X), (Y) 

<HL REGISTER 

LADEN > 

DEFM 

"IDE. 

, (X),[YJ 

<DE REGISTER 


DEFB 

80A,80D 


DEFM 

" J BC. 

,(X),IY) 

<BC REGISTER 


DEFB 

80A,80D 


DEFM 

" !AKKU.... 

, [X] 

<AKKU LADEN>" 


DEFB SOA,&0D 

DEFM " | SYS.. [ADRESSE ] 

DEFB SOA,&0D,800 

AUSGA:CP 1 
JP NZ,FEHLER 
LD A,&0C 
CALL SBB5A 
LD A, (IX) 

CP 1 

CALL Z,SWAP 
Id hl,(buffer) 

LD DE,512 
ADD HL,DE 
LD (SCHLUSS),HL 
LD IIL , (BUFFER) 

CALL SEMO 
AUSBY:LD A,H 
CALL HEXAUS 
LD A,L 
CALL HEXAUS 
LD A,&20 
CALL SBB5A 
LD A,(MOFLAG) 

LD B,A 

AUSAKKU:LD A,(HL) 

CALL HEXAUS 
LD A,820 
CALL 8BB5A 
INC HL 

DJNZ AUSAKKU 
LD A,820 
CALL 8BB5A 
LD DE,(MOFLAG) 

OR A 

SBC HL,DE 
LD A,(MOFLAG) 

LD B,A 

AUSLOOP:LD A,(HL) 

INC HL 
RES 7,A 
CP 820 
JR NC,PRAUS 


- *** SUB EXAMINE **■ 

;EIN PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;CHAR FUER CLS 
;AUSGEBEN 

;ERSTER PARAMETER (STREAMNUMMER] 
;<> 1 

;VEKTOR EINRICHTEN 

;BUFFERSTART 

;LAENGE FESTLEGEN 

;ZU BUFFERSTART ADDIEREN 

;512 BYTES BIS ENDE 

;AB HIER AUSGEBEN 

;MODE SETZEN 

;HIGH BYTE 

jAUSGEBEN 

;LOW BYTE 

;AUSGEBEN 

;(SPACE) 

;CHAR OUT 
;A=LAENGE 
; 16 ZEICHEN 
;BYTE IN AKKU 
;AUSGEBEN 
;[SPACE] 
jAUSGEBEN 
;HL = HL + 1 
;SCHLEIFE UNTIL 16 
;(SPACE) 
jAUSGEBEN 
;16 TIMES 
;DELETE CARRY 
;POINTER - 16 
;MODE ? 

;POINTER 
;BYTE IN AKKU 
;HL = HL + 1 
;DELETE BIT 7 
; ASCII GP. OES SER 32 ? 

;JAWOHL, AUSGEBEN 


;CLS 
;REVERS 
;TITEL 

;REVERS LF/LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
JLF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
;LF/CR 
JLF/CR 
;LF/CR 

;LF/CR UND ENDE TABELLE 


ComputerzutafitirRurvom Fachmann! 


Disketten: 


3" Maxwell 1 - 9 Stück DM 

11,50 

10 Stück DM 

10.50 

3” neutral 1 - 9 Stück DM 

11 — 

10 Stück DM 

10 ,— 

Dlskittiikoxin: 



3"-Box ohne Schloß für 40 Stück 

DM 

35,— 

3"-Box mit Schloß für 40 Stück 

DM 

39 — 

Datenkassetten CI 01 - 9 Stück ]i DM 

2,50 

10 Stück ]t DM 

1,99 

Zuhihlr: 



Druckerständer 

DM 

87,— 

Endlospapier 240 x 12" (500 Blatt) DM 

15.— 

Endlospapier 240 x 12” (2000 Blatt) DM 

38,— 

Firbblidir: 



für Panasonic 1090 - 91 - 92 

DM 

26,50 

für NLQ401 

DM 

14,50 

tür Epson 80-er Serie 

DM 

14,50 

RS-232 mit Software 

DM 148,— 

Verlängerungskabel für CPC 464 

DM 

19,50 

Verlängerungskabel 



(.CPC 464,664,6128 

DM 

31,— 

Centronics-Druckerkabel (2 m) 

DM 

58,— 

Plexiglasabdeckhauben 



t. 464, 664, 6128 

DM 

21,— 

Plexiglasabdeckhauben f. Floppy 

DM 

11,50 

Quickshot 1 

DM 

17,50 

Quickshot II 

DM 

23,— 

Competition pro 5000 micro 

DM 

49 — 


Drucker: 

Panasonic 1080 
Panasonic 1090 
Panasonic 1091 
Panasonic 1092 
Panasonic 1592 
Riteman F+ 


DM 741.— 
DM 665,— 
DM 855,— 
DM 1055,— 
DM 1465,— 
DM 1048,— 


Alle Preise inet. Mehrwertsteuer. Versand gegen 
Nachnahme + Versandkosten oder Vorkasse. 

EDV-Zubehär-GroBhandel 
Horst Effertz 

Goethestraße 8, 5012 Bedburg 
Tel.: 02272-1088 und 02274-5693 


*** 


BRANDNEU 


*** 


QUICK'CALG Version 2.0 
für 

JOYCE PCW 8256 
BUCHHALTUNG und STEUERN 


Vollautomatisches Verwalten 
eines kompletten Geschäftsjahres 
auf 172 KB Dateiensystem 

Bedienungshandbuch 

mit BilKuklnuiszil|iii und 
iiifBkrtlckir Aililtmi 
Brucklra flr QUICK-CALC 2.0 

■It ttcbilickii Datei »K 
Blldmaskaa aalardin II! 

AKTIONSPREIS: 148.00 DM 

Nähere Hinweise auch im 
SCHNEIDER PRAXIS BUCH 
(Signum, D. Winkler/222-239) 

Alls Programms kompatibel za 
den Modellen 404/664/612B 

Standards-EPSON, ITOH, BINDER 
und OLYMPIA auf Anfrage 

* INFO-PROSPEKT ANFORDERN * 


QUICK-WORD 1.0: 

QUICK-WORD 1.2: 

QUICK-CALC 1.0: 

QUICK-CALC 1.2: 

ECMA-Comp. band.: 


198.00 DM 

268.00 DM 

98.00 DM 

178.00 DM 

19.80 DM 


Betriebe, Schulen und Behörden 
erhalten 15 % Rabatt, 

Termine nach Vereinbarung 

Fa. WERDER/Bramfelder Ch. 215 
2000 Hamburg 71 /Tel.: 641 17 79 
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Drucker. Beim NLQ 401 muß 
der DIP-Schalter für AUTO 
LINE FEED auf ON stehen, 
da sonst kein Zeilenvor¬ 
schub ausgeführt wird. 
Beispiel: 

Das Directory der Usernum¬ 
mer 3 soll auf Drucker ausge¬ 
geben werden. Sie geben 
ein: 

IUSER,3 

IPCAT 

IUSER'0 

12. BHELP 
SYNTAX :IBHELP 
FUNKTION: 

Dieser Befehl ist eine reine 
Hilfsroutine für das Disc- 
Basic V3.0 und gibt eine Liste 
sämtlicher Befehle und Para¬ 
meterübergaben auf dem 
Bildschirm aus. Dies funk¬ 
tioniert in MODE 1 und 
MODE 2. In MODE 0 sollte 
dieser Befehl nicht angewen¬ 
det werden, weil alles ein we¬ 
nig unübersichtlich aussieht. 

13. INIT 
SYNTAX :IINIT 
FUNKTION: 

Der Befehl IINIT bewirkt 
eine komplette Initialisie¬ 
rung der Text-VDU des 
Screen- und Keyboard-Mana¬ 
gers. Eine Anwendung findet 
sich darin, daß bei verän¬ 
derten Farben und Zeichen¬ 
satz wieder der Normalzu¬ 
stand des Rechners hergc- 
stellt werden kann. Empfeh¬ 
lenswert ist es, diesen Befehl 
mit 

KEY 128,”UNIT”+CHRS(13) 

auf die 0 des Zehnerblocks zu 
legen. 

14. WAIT 
SYNTAX :IWAIT 
FUNKTION: 

Der Befehl IWAIT unter¬ 
bricht den Programmablauf 
solange, bis irgendeine Taste 
gedrückt wird. 

15. AKKU 

SYNTAX :IAKKU,BYTE 
FUNKTION: 

Das Register A wird mit dem 
Wert (BYTE) geladen und in 
einem temporären Speicher 
abgelegt. Siehe hierzu auch 
den Befehl ISYS. 

16.IIL 

SYNTAX :IHL,BYTE1, 

BYTE2 

FUNKTION: 

Das Register H wird mit dem 
Wert (BYTE1) geladen, das 
Register L mit dem Wert 
(BYTE2). Beide Werte wer¬ 
den in einem TEMP abge¬ 
legt. Siehe hierzu auch den 
Befehl ISYS. 

17. BC 


LD A,46 

PRAUS:CALL &BB5A 
DJNZ AUSLOOP 
LD A,&0D 
CALL &BB5A 
LD A,&0A 
CALL &BB5A 
PUSH HL 

LD DE,(SCHLUSS) 

OR A 

SBC HL,DE 
POP HL 
JR C,AUSBY 
JR Z,AUSBY 
LD A,(PFLAG) 

CP 1 

CALL Z,SWAPOFF 
RET 

PFLAG: DEFB 0 
SCHLUSS: DEFS 2 

HEXAUS: LD E,A 

RRCA 

RR CA 

RRCA 

RRCA 

AND %1111 
CALL NIBBINV 
LD A,E 
AND 11111 
CALL NIBBINV 
RET 

NIBBINV: CP &0A 
JR C,WERT 
ADD A,7 
WERT:ADD A,48 
CALL &BB5A 
RET 

SWAP:LD A,&01 
LD (PFLAG),A 
LD A,&C3 
LD (&BB5A),A 
LD A,&2B 
LD (&BB5B),A 
LD A,&BD 
LD (&BB5C),A 
RET 

SWAPOFF: LD A,S00 
LD (PFLAG),A 
LD A,&CF 
LD (&BB5A),A 
LD A,800 
LD (&BB5B),A 
LD A,&94 
LD (&BB5C),A 
RET 

FEHLER:LD HL,FTEXT 

TXTOUT:LD A,(HL) 

CP &00 
RET Z 

CALL &BB5A 
INC HL 
JP TXTOUT 

FTEXT:DEFB &0A,&0D 

DEFM "1!! PARAMETERFEHLER l!i" 

DEFB &O7,&0A,&0D,&00 

CLEAN:LD A,1 
LD IX,JOKER 
RST &18,ERACAL 
RET 

ERACAL:DEFB &2D,&C0,S07 
JOKER:DEFW JOKER1 
JOKER1:DEFB 5 
DEFW NAME 
NAME:DEFM "*.BAK" 

WARTE:CALL &BB06 
RET 


REDEF:CALL &BB00 
CALL &BB4E 
CALL &BBBA 
CALL &BBBF 
RET 


; t. ] 

;AUSGEBEN 

;SCHLEIFE UNTIL 16 
;CR 

;AUSGEBEN 
;LF 

;AUSGEBEN 

;HL AUF STACK RETTEN 
;ENDE FESTSTELLEN 
;DELETE CARRY 
;HL - ENDE 
;HL VOM STACK 
;KLEINER 0 ?? CONTINUE 
;GLEICH 0 ?? CONTINUE 
;STREAMFLAG HOLEN 
; < > 1 

;VEKTOR RESTAURIEREN 
;ZURUECK 
;1 BYTE FLAG 
;2 BYTE FLAG 
*** SUB CHAR TO HEX * * * 

;AKKU MERKEN 
;FOUR TIMES 
;ROTATE 
;RIGHT 
; AKKU 

;DELETE BIT 4-7 
;NIBBLE AUSGEBEN 
;AKKU ZURUECK 
;DELETE BIT 4-7 
;NIBBLE AUSGEBEN 
; ZURUECK 

*** SUB UMWANDLER * * * 

; <10 ODER WAS 
;MAYBE EIN WERT 
;ODER EIN ZEICHEN ? 

;ASCII 
;AUSGEBEN 
; ZURUECK 

*** SUB SWAP STREAMS **» 

FLAG SET 
FLAG EINRICHTEN 
-FIRMWARE 
-VEKTOR 

-BILDSCHIRMAUSGABE 

-AUF 

-DRUCKER 

-VERBIEGEN 

ZURUECK 

*** SUB SWAP STREAMS OFF *** 

FLAG RESET 

FLAG LOESCHEN 

-FIRMWARE 

-VEKTOR 

-BILDSCHIRMAUSGABE 
-WIEDER AUF 
-BILDSCHIRM 
-EINRICHTEN 
-ZURUECK 

*** SUB FEHLERMELDUNG *** 

;TEXT NACH HL 

*** SUB AUSGABE VON TEXTEN *** 
;A IN HL 
;TEXTENDE ? 

;ZURUECK IF TRUE 
;AUSGEBEN 
;HL = HL + 1 
;SCHLEIFE WEITER 
*** SUB FEHLERTEXT *** 

;LF/CR 
;FEHLERTEXT 

;KLINGEL/LF/CR ENDE TABELLE 
*** SUB CLEAN 
;1 PARAMETER 
;ADRESSE NAME 
JERASE FILE 
; ZURUECK 

;ROM 7 ADRESSE &C02D 
;NAME 

;5 ZEICHEN 
;POINTER 

;WILDCARD + NAME 
*** SUB WAIT «*• 

;WAIT ON KEY 
;ZURUECK 

*** SUB INIT *** 

;KEYBOARD INIT 
;TXT INIT 
;GRA INIT 
;SCR INIT 
;ZURUECK' 

*** SUB MINI MONITOR *** 
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MINIHON:CP 3 
JP NZ,FEHLER 
LD A,&0C 
CALL &BB5A 
LD A,(IX) 

CP 1 

CALL Z,SWAP 
LD D,(IX+3) 

LD E,(IX+2) 

LD (SCHLUSS),DE 
LD H,(IX+5) 

LD L,(IX+4) 

CALL SEMO 
CALL AUSBY 
RET 


SEMO:CALL &BC11 
CP 2 

JP Z,SEM02 
CP 1 

JP Z,SEMOI 
LD A, &03 
LD (MOFLAG),A 
JP BACK 
SEMOI:LD A, &08 
LD (MOFLAG),A 
JP BACK 
SEM02:LD A,&0F 
LD (MOFLAG),A 
BACK:RET 
MOFLAG:DEFS 2 


HREG:CP 2 
JP NZ,FEHLER 
LD A,(IX+2) 
LD (HFLAG),A 
LD A,(IX) 

LD (LFLAG),A 
RET 


DREG:CP 2 
JP NZ,FEHLER 
LD A,(IX+2) 
LD (DFLAG),A 
LD A,(IX) 

LD (EFLAG),A 
RET 


BREG;CP 2 
JP NZ,FEHLER 
LD A,(IX+2) 
LD (BFLAG),A 
LD A,(IX) 

LD (CFLAG),A 
RET 


AREG:CP 1 
JP NZ,FEHLER 
LD A,(IX) 

LD (AFLAG),A 
RET 


HFLAG:DB 00 
LFLAG:DB 00 
DFLAG:DB 00 
EFLAG:DB 00 
BFLAG:DB 00 
CFLAG:DB 00 
AFLAG:DB 00 


SYSCA:CP 1 
JP NZ,FEHLER 
LD D,(IX+1) 

LD E,(IX) 

LD (SYSFLAG),DE 
LD A,(HFLAG) 

LD H,A 
LD A,(LFLAG) 

LD L,A 
LD A,(DFLAG) 

LD D,A 
LD A,(EFLAG) 

LD E,A 
LD A,(BFLAG) 

LD B,A 
LD A,(CFLAG) 

LD C,A 
LD A,(AFLAG) 

LD IX,(SYSFLAG) 

JP (IX) 

RET 

SYSFLAG:DEFB &01,&AC 


;DREI PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;CHAR FOR CLS 
;DO THE CLS 

;DRITTER PARAMETER (STREAMNUMMER) 

;<> 1 

;VEKTOR EINRICHTEN 
;BYTE 1 
; ENDE 

;ZWEITER PARAMETER [ENDE] 

;BYTE 1 

;ERSTER PARAMETER [START] 

;MODE SETZEN 

;SPRUNG IN AUSGABEROUTINE 
;FERTIG 

■ *** SUB MODE SCANNEN UND SETZEN *** 
;MOMENTANER,MODE NACH A 
;MODUS 2 ? 

JJA, AUF 2 SETZEN 
;MODUS 1 ? 

]JA, AUF 1 SETZEN 
;3 ZEICHEN 
;MODE 0, LAENGE = 3 
;GESETZT, ZURUECK 
;8 ZEICHEN 
;MODE 1, LAENGE = 8 
;GESETZT, ZURUECK 
; 16 ZEICHEN 
;MODE 2, LAENGE = 16 
; ZURUECK 

;2 BYTE SPEICHER 
*** SUB HL *** 

;2 PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;LOW BYTE 
;ERSTER PARAMETER 
;HIGH BYTE 
;ZWEITER PARAMETER 
;ZURUECK 
*** SUB DE *** 

J 2 PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;LOW BYTE 
;ERSTER PARAMETER 
;HIGH BYTE 
;ZWEITER PARAMETER 
;ZURUECK 
*** SUB BC *** 

;2 PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;LOW BYTE 
;ERSTER PARAMETER 
;HIGH BYTE 
;ZWEITER PARAMETER 
;ZURUECK 
**• SUB AF *** 

;1 PARAMETER ? 

;PARAMETERFEHLER IF NOT 
;LOW BYTE 
;PARAMETER 
;ZURUECK 

*** SUB REGFLAGS **• 

;H REGISTER 
;L REGISTER 
;D REGISTER 
;E REGISTER 
;B REGISTER 
;C REGISTER 
;A REGISTER 
*** SUB SYSCALL *** 

1 PARAMETER ? 

PARAMETERFEHLER IF NOT 
BYTE 1 ADRESSE NACH D 
BYTE 2 ADRESSE NACH E 
ADRESSE MERKEN 
REGISTER MIT DEFAULTS LADEN 


ADRESSE NACH IX 

AUFRUF 

ZURUECK 

ADRESSE DEFAULT &AC01 


System-Software 

Cobol-Compiler 

auf 3"-Diskette 129,-DM 

Fortran-Compiler 

auf 3"-Diskette 129,- DM 

Nevada-Edit 

auf 3"-Diskette 129-DM 

C-Compiler 

auf 3"-Diskette 188,-DM 

C-Basic-Compiler 

auf 3"-Diskette 199 - DM 

Public Domain Software 

SIG/M User Group 
(für CP/M), jetzt 240 
Disketten 3” je 31,90 DM 

Katalog-Diskette 30,- DM 

Turbo-Pascal 248,- DM 

10er Pack 3”-Disketten 105,-DM 

Alle Preise incl. MwSt. 
Versand per Vorauskasse 
zuzüglich DM 5,- 
Versandkosten 



PiZie-Data 
Mittelstraße 61 


DO D D SD O 

Voodoo ° 


Inhaber: 


do ooo Hans-Jürgen 
Piorreck 

4322 Sprockhövel 2 
Telefon: 02339/7191 


[RET] 


* ENDLICH* 

JOYCE 

JOYKART 

JOYKART macht Ihre JOYCE zum PC 
Dateiverwaltung • Terminü berwachung • 
Lagerverwaltung • Serienbrieferstellung 
und viele andere Anwendungen möglich... 

JOYKART läBt Sie alles vergessen,was 
Sie bisher über Datenverwaltung wuOtei 

JOYKART wurde in Deutschland auf der 
JOYCE für die JOYCE entwickelt. 

Mit ausführlichem Handbuch u. Beispielen 
Einmaliges Preis Leistungsverhältnis 

nur DM 285.-- 

Information gegen Freiumschlag-eder 
gleich hestellen-Lieferung per KN-sefort 
Händleranfragen werden auch tel. beerb. 

S HEIM + PC - COMPUTER 

CHEURER 

Hauptstraße »-7475 Meßstetten 

Telefon 07431/61280 
Wir führen ATARI* COMMOOORE . STAB. 
CUMANA* MULTITECH • RITEMAN • 
SCHNEIDER* THOMSON • DATA - BECKER • 
MARKT ft TECHNIK* 

★ IMMER AKTUELLE SONDERANGEROTE ★ 

Preislisten u.Info (Fabrikat engeben Igegen 
0M 2.-Rückpartn • Schnelle Erledigung • 
eder besuchen Sie unser ladenlokal. 
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1 I •.***»•****.«,*.,*,,,»,, 


2 

'* SEKTOR MAP V2.0 * 

[783 ] 

3 


[1 417 ] 

4 

'* CPC INTERNATIONAL 86 * 

(1693 ] 

5 


[1284 ] 

6 

'* THOMAS MORGEN 1986 * 

[785 ] 

7 

' *••****«*• »* i » i *********** 

[768 ] 

8 

1 

[117] 

9 


[117] 

10 

MEMORY &4FFF:GOSUB 170:CALL &5000 

(1025 ] 

20 

MODE 2:fflag =&505B:PRINT" 

SEKTO [1 3501 


R-MAP VI.0 BY TM.INSERT DISC THEN PRES 

S ANY KEY":PRINT"- 


-";CALL &BB06 

30 DIM F(7, 8 ),N(7 ) [875 J 

40 FOR G = 0 TO 4 [663] 

50 FOR T = 0 TO 7:TRACK = G*8+T;GO=1 [1386] 

60 JSECSCAN,TRACK:IF PEEK {FFLAG) <>0 THEN [6432] 
GO = GO +1:IF GO<>101 THEN 60 ELSE N(T)=0 
:GOTO 120 

70 MI=256:BUFF=&505C:XBUFF=BUFF [2372] 

80 P=PEEK(BUFF):IF P=MI THEN 110 [1933] 

90 IF P<MI THEN MI=P:XBUFF=BUFF [2382] 

100 BUFF=BUFF+1:GOTO 80 [1268] 


110 N(T)=BUFF-XBUFF:IF N(T)>9 OR (N(T )<8 A [5582] 
ND N(T)<>0) THEN N(T)=9 

120 PRINT CHR$(24);"TRACK:";CHR$(24);TRACK [4119] 
:IF TRACK<10 THEN PRINT" 

130 IF N(T)=0 THEN PRINT" NICHT FORMAT [2219] 

IERT 


140 FOR S= 0 TO N(T)-1:F(T,S)=PEEK(S+XBUFF [3733] 
):PRINT HEX$(F(T,S ),2 )"; 

150 NEXT:NEXT:NEXT [963] 

160 END [110] 

170 DATA &01,&0D,&50,&21,&09,&50,&C3,&D1, & [4191] 
BC,&00,&00,&00,&00,&12, & 50,&C3,&1A,&50,&53 
,&45, 1359 

180 DATA &43,&53,&43,&41,&CE,&00,&FE,&01 ,& [3426] 
C0,&11,&FF,&01,&CD,&46,&50,&1E,&00,&DD,&56 
,&00, 1900 

190 DATA &DF,&4F,&50,&21,&5C,&50,&E5,&DF,& [3783) 
52,&50 ,&E1,&30,&0B,&3A,&51,&BE,&77,&23,&7D 
,&FE, 2347 

200 DATA &1F,&20,&EF,&AF,&32,&5B,&50,&11, & [3475] 
00,&0A, &7B,SDF,&55,&50,&7A,&DF,&58,&50,&C9 


,&63, 2049 

210 DATA &C7,&07,&6C,&C5,&07,&72,&CA,&07 ,& [2480] 
03,&C6, &07, 1049 

220 dat =0 : sz =0 : dz = 170 [1743] 

230 FOR adr = 20480 TO 20570 [841] 

240 READ byte : dat=dat+1 [1921] 

250 sz=sz+byte [1743] 

260 POKE adr,byte [898] 

270 IF dat < 20 AND adr < 20570 THEN 31 (1881 ] 

0 

280 READ chksum [1079] 

290 IF chksumosz THEN PRINT "Fehler in [3061] 

Zeile :";dz 

300 dz=dz + 10 : sz=0 : dat=0 [2078] 

310 NEXT adr [4533 

320 RETURN [5553 


SYNTAX :IBC,BYTE1, 
BYTE 2 
FUNKTION: 

Das Register B wird mit dem 
Wert (BYTE1) geladen, das 
Register C mit dem Wert 
(BYTE2). Beide Werte wer¬ 
den in einem TEMP abge¬ 
legt. Siehe hierzu auch den 
Befehl ISYS. 

18. DE 

SYNTAX :IBC,BYTEI, 

BYTE2 

FUNKTION: 

Das Register D wird mit dem 
Wert (BYTE1) geladen, das 
Register E mit dem Wert 
(BYTE2). Beide Werte wer¬ 
den in einem TEMP abge¬ 
legt. Siehe hierzu auch den 
Befehl ISYS. 

19. SYS 

SYNTAX :ISYS,ADRESSE 
FUNKTION: 

Alle Register werden mit 
den, über die Befehle AKKU, 
HL.BC. DE gefüllten TEMPS 
geladen und danach die 
Adressen angesprungen. 
Dadurch ist es möglich, ohne 
Einladen eines Assemblers 
auf einfache Weise Werte für 
Firmwareroutinen zu über¬ 
geben. 

20. HDUMP 

SYNTAX :IHDUMP,START, 
EN DE,DEVICE 
FUNKTION: 

Der Befehl HDUMP arbeitet 
ähnlich wie der Befehl EXA¬ 
MINE. Hier lassen sich je¬ 
doch Start- und Endadresse 
festlegen und so ein Hex- 
ASCII-Dump eines Speicher¬ 
bereiches ausgeben. Die Pa¬ 
rameter für Device werden 
genau wie bei EXAMINE 


••****•••••***••*•**•• 

;* SEKTOR SCANNER * 

; * _ * 

;* COPYRIGHT 1986 * 

;* CPC INTERNATIONAL * 

; * - • 

;* THOMAS MORGEN 86 * 

.•**•••••••••«•••••«•* 

ORG &5000 
LD BC,RSX 
LD HL,KERNAL 
JP &BCD1 
KERNAL.-DEFS 4 
RSX:DEFW TABLE 
JP SCAN 

TABLE:DEFM "SECSCA" 

DEFB "N"+&80 
NOP 

SCAN:CP 1 
RET NZ 
LD DE,&01FF 
CALL SEDRV 
LD E,00 
LD D,(IX) 

RST &18,LOCATE 
LD HL,OFFSETS 
SLOOP:PUSH HL 
RST &18,SCANSEC 
POP I1L 
JR NC,NOFORM 
LD A,(&BE51) 

LD (HL),A 
INC HL 
LD A,L 
CP & 1 F 
JR NZ,SLOOP 
XOR A 

NOFORM:LD (FORMFLAG),A 
LD DE,&0A00 
SEDRV:LD A,E 
RST &18,EROFF 
LD A,D 

RST & 18,SCTRY 
RET 

LOCATE:DEFB &63,&C7,&07 
SCANSEC:DEFB &6C,&C5,&07 
EROFF:DEFB &72,&CA,&07 
SCTRY:DEFB &03,&C6,&07 
FORMFLAG:DEFB 00 
OFFSETS:DEFS 9 


;STARDTADRESSE 
;RSX UEBERNEHMEN 
;BUFFER UEBERNEHMEN 
;UND EINBINDEN 
;BUFFER 4 BYTES 
;SPRUNGTABELLE 
;BEFEHL 1 
;BEFEHLSWORTE 

;ENDE TABELLE 

»** SUB SEKTOR SCANNEN *** 

1 PARAMETER ? 

ZURUECK IF NOT 
DEFAULT DRIVE PRAMETER 
INSTALLIEREN 
E RESETEN 
TRACK PARAMETER 
DRIVE HEAD ON TRACK 
IN BUFFER 
HL AUF STACK 
SCANNEN 
HL VOM STACK 
NICHT FORMATIERT 
LAST OFFSET 
IN BUFFER 
BUFFER ERHOEIIEN 
CHECK END 
= &1F ? 

SCHLEIFE IF NOT 
A RESETEN 
ERROR 

DEFAULT DRIVE PARAMETER 

FEHLERMELDUNGEN 

ON/OFF 

LESEVERSUCHE 

SETZEN 

ZURUECK 

*** SUB TEMPS/FLAGS/DEFAULTS 
;ROM 7,ADRESSE &C763 
;ROM 7,ADRESSE &C56C 
;ROM 7,ADRESSE &CA72 
;ROM 7;ADRESSE &C603 
;ERRORFLAG 
;TEMP OFFSETS 


* * * 
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DISC-BASIC V3.0 REFERENZ 

Folgende Referenzen zu den Disc-Basic-Routinen können vom Anwender auf MC-Ebene genutzt werden. Diese Ein¬ 
sprünge stellen eine Art Firmware dar und sollen dem User helfen, mehr aus dem Disc-Basic zu machen. 


ADRESSE 


BEMERKUNG 


EINSPRUNG 


&8000 

STARTADRESSE 

&80A6 

BEFEHL LIES SEKTOR 

&80BE 

BEFEHL SCHREIB SEKTOR 

&80D6 

BEFEHL BUFFER SETZEN 

&80E6 

ZEIGER AUF BUFFER 

&80E8 

TURBO DOS ON 

&80F2 

TABELLE FUER TURBO DOS 

&80FB 

TURBO DOS OFF 

&81 02 

TABELLE NORMAL 

&810B 

BEFEHL DELCAT 

&8121 

BEFEHL PCAT 

&812E 

BEFEHL FORMATEX 

&81 80 

SELEKTIERTER OFFSET 

&81 81 

TABELLE FUER FORMATEX 

&81 A7 

BEFEHL FORMATIERE 

&8200 

TABELLE WARTETEXT 

&821 E 

FLAG DATA/VENDOR 

&821F 

40 SPUREN BEI FORMAT 

&8220 

DRIVE BEIM FORMAT 

&8225 

TABELLE VENDOR FORMAT 

&8249 

TABELLE DATA FORMAT 

&826D 

BEFEHL HELP 

&827C 

TEXTTABELLE HELP 

&854D 

BEFEHL EXAMINE 

&85CB 

AUSGABEKANAL FLAG 

&85CE 

ZEICHEN IN HEX WANDELN 

&85EB 

SCREENVEKTOR AUF DRUCKER 

&8600 

SCREENVEKTOR ZURUECK 

&8618 

TEXT AUSGEBEN 

&8623 

TABELLE PARAMETERFEHLER 

&8640 

BEFEHL CLEAN 

&8652 

NAME FUER CLEAN 
[4 ZEICHEN *.BAK] 

S8657 

BEFEHL WAIT 

&865B 

BEFEHL INIT 

&8668 

BEFEHL HDUMP 

&8691 

MODUS FESTSTELLEN 

&86B4 

FLAG FUER MOMENTANEN MODE 

&86B6 

BEFEHL HL 

&86C8 

BEFEHL DE 

&86DA 

BEFEHL BC 

&86EC 

BEFEHL AKKU 

&86F8 

TEMP FUER H 

&86F9 

TEMP FUER L 

&86FA 

TEMP FUER D 

&86FB 

TEMP FUER E 

&86FC 

TEMP FUER B 

&86FD 

TEMP FUER C 

&86FE 

TEMP FUER A 

&86FF 

BEFEHL SYS 


IX+4=DRIVE 

IX+2=TRACK 

IX=SEKTOR 

IX+4=DRIVE 

IX+2=TRACK 

IX=SEKTOR 

IX=BUFFERSTART 


IX+4=DRIVE 

IX+2=TRACK 

IX=OFFSET 


IX=SELEKTION 


IX=AUSGABEKANAL 
ANZEICHEN 


HL=TEXTTABELLE 
[ENDE = 0] 


IX + 4 =ENDE 
IX+2=START 

IX=AUSGABEKANAL 


IX+2=H 
IX=L 
IX+2 =D 
IX=E 
IX+2=B 
IX=C 
IX=A 


PARAMETER 
IN TEMPS 


übergeben. Auch für die 
Bildschirmmodi gilt hier das 
gleiche. Eine Unterbrechung 
des Ausdrucks ist nicht mö¬ 
glich. 

Das Programm liegt ab 
Adresse &8000 und sollte von 
dort auch nicht verschoben 
werden, da es sich seinen in¬ 
ternen Directorybuffer ab 
Adresse &9000 bis &A000 an¬ 
legt. Ab &A000 liegt dann 
noch ein 512 Bytes großer 
Sektor 10 Buffer, der jedoch 
von Basic aus über SETBUF 
an eine beliebige Stelle ge¬ 
legt werden kann. Wie bei al¬ 
len verschobenen Buffern 
muß jedoch darauf geachtet 
werden, daß er das eigent¬ 
liche Disc-Basic nicht über¬ 
schreibt. 

Durch einen einfachen CALL 
nach &85EB kann beispiels¬ 
weise jede Bildschirmaus¬ 
gabe auf den Drucker umge¬ 
leitet werden. Eine Anwen¬ 
dung besteht darin, sich das 
Directory der gelöschten Fi¬ 
les auf Drucker ausgeben zu 
lassen, indem Sic eintippen: 
CALL &85EB 
IDELCAT 
CALL &86Ö0 

Als letztes Tool zum Disc- 
Basic gibt es noch das Pro¬ 
gramm SEKTOR MAP, wel¬ 
ches einen weiteren Basic- 
Befehl zur Verfügung stellt, 
der jedoch nur Anwendung 
in diesem Hilfsprogramm 
findet und deswegen nicht in 
Disc-Basic mit aufgenommen 
wurde. SEKTOR MAP er¬ 
stellt ein Inhaltsverzeichnis 
der Spuren einer Disk und 
gibt an, ob ein Track nicht 
formatiert wurde. Da sich 
eine nicht formatierte Spur 
schlecht lesen läßt und dies 
nur über Manipulationen 
der Fehlermeldungen und 
der Anzahl der Leseversuche 
verwirklichen ließe, ist diese 
Routine nicht gerade schnell. 
Jemand, der seine Disketten 
jedoch mit FORMATEX be¬ 
handelt hat, wird rasch den 
praktischen Wert des Pro¬ 
grammes erkennen. SEKTOR 
MAP liegt ab &5000 und kann 
sich gleichzeitig mit dem 
Disc-Basic im Speicher be¬ 
finden, ohne sich gegenseitig 
zu behindern. Bei einigen 
664 und 6128 Versionen kann 
es durch geänderte Ausga¬ 
beroutinen zu leichten 
Schwierigkeiten kommen. 
Hängen Sie in dem Fall ein¬ 
fach hinter die erste FOR- 
NEXT-Schleife noch ein 
CHR$(13). Das Programm 
arbeitet zwar einwandfrei, 
der Bildschirmaufbau ist je¬ 
doch etwas verschoben. (TM) 


- 


X 


ff 
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Auf den Disketten im original Schneider-Format ist der vor¬ 
handene Speicherplatz nicht gerade üppig bemessen. 180K- 
Byte - großzügig gerechnet - sind speziell, wenn man mit sehr 
umfangreichen Programmen und Datensammlungen ar¬ 
beitet. einfach arg knapp. Deshalb sind Schneider-Freaks im¬ 
mer auf der Suche nach speicherplatzsparenden Routinen 
und Möglichkeiten, ihr vorhandenes System möglichst ef¬ 
fektiv nutzen zu können. Beim Analysieren des Disketten¬ 
betriebssystems und seiner Möglichkeiten kam mir eine Idee, 
die ich an dieser Stelle einmal weitergeben möchte. Bei 
Leuten, die sich ebenfalls mit diesem Thema auseinander ge¬ 
setzt haben, ist bereits seit längerer Zeit bekannt, daß die 3”- 
Diskettenlaufwerke sich bis zur 43. Spur formatieren lassen. 


ben des Programmes dazu in der Lage. Um das gewünschte 
Programm auf die vorgesehene Spur zu bekommen, geht man 
am besten folgendermaßen vor: 

Zunächst nimmt man eine unbeschriebene Diskette und for¬ 
matiert sie im Data-Format bis zur 43. Spur. Anschließend 
wird das Programm, das dort abgelegt werden soll, auf diese 
Diskette abgespeichert. Nun liest man das Directory dieser 
Diskette ein. Da sich nur dieses eine Programm auf der Diskette 
befindet, ist es mit Sicherheit auf Spur 0 im Sektor 1 zu finden. 
In den ersten 16 Bytes des Directoryeintrages finden wir der 
Reihe nach aufgeführt: 


Das bringt rein theoretisch einen Gewinn von ca. 13 weiteren 
KByte, auf denen dann Daten aufgezeichnet werden könnten. 
Leider setzt das AMSDOS dieser Nutzung jedoch Wider¬ 
stand entgegen, da es für ein Lesen dieser Spuren nicht ein¬ 
gerichtet ist. Diese Spuren lassen sich nur mit Hilfe speziell 
dafür ausgelegter Programme lesen und benutzen. Eine Aus¬ 
nahme gibt es jedoch, und die soll hier dargestellt werden. 
Programme, die auf der 41. oder der 43. Spur abgelegt werden, 
lassen sich z.B. von Basic aufrufen. Sind sie jedoch länger als 
acht Sektoren, treten Fehlermeldungen auf, deshalb sollte 
man sich auf Programme beschränken, die nicht mehr als 4K- 
Byte Umfang haben. Ein insgesamt 8K-Byte Programm ist 
schon eine ganze Menge, speziell wenn es sich um ein in Ma¬ 
schinensprache geschriebenes Programm handelt, aber auch 
in Basic kann man hier schon eine ganze Menge unterbrin¬ 
gen. So z.B. eine kleine Textverarbeitung, einen Disc- 
Monitor, Maschinensprachemonitore und vieles mehr. Auch 
ist, was den Umfang der Programme angeht, sicherlich noch 
nicht das letzte Wort gesprochen. Es werden sich bestimmte 
Freaks finden, die hier weitergehende Möglichkeiten finden 
oder gar schon gefunden haben, um Programme auch über 
die genannten Spuren hinaus ohne Fehlermeldung des Systems 
aufrufen zu können. 

Wie gelangt man jetzt in den Genuß dieser zusätzlichen 
KBytes? Zunächst einmal benötigt man dazu etwas Hand¬ 
werkszeug, in unserem Falle ein Programm, das es erlaubt, 
die 41. und 43. Spur auf der Diskette zu formatieren. Außer¬ 
dem muß man in der Lage sein. Sektoren auf der Diskette ein¬ 
zeln zu lesen, sie zu bearbeiten und anschließend wieder an 
der gleichen oder einer anderen Stelle der Diskette ab- 
speichcrn zu können. Viele der käuflich zu erwerbenden 
Diskettenmonitore und auch einige in Computerzeitschriften 
vorgestellte, gestatten dies bereits oder sind nach Umschrei¬ 


1. Byte: Usernummer (hex 0—15) 

2. - 12. Byte: Filename mit Extension 

16. - Byte: Filegröße (X 128 = Größe des Files in Byte) 

17. - 32. Byte: Position des Files auf der Diskette 

Anhand des 17.-20. Byte bei einem 4K-Programm(l Byte pro 
belegtes KByte auf der Diskette) können wir nun die Lage des 
Programmes auf der Diskette ermitteln. Hex 02 entspricht 
SpurO, Sektor5,hex03 SpurO. Sektor7, hex04SpurO,Sektor9 
usw. Um nicht jedesmal rechnen zu müssen, sind weitere 
Umrechnungen in einer separaten Tabelle aufgeführt (siehe 
Tabelle 1). Es gilt nun, die Sektoren, die in dem 17. - 20. Byte 
des Directoryeintrages aufgeführt sind, sektoren weise auf die 
41. Spur zu kopieren, ohne sie dabei verändern zu müssen. 
Dazu müssen diese Sektoren, in unserem Beispiel die Sekto- 
ren5-9 auf SpurO und 1 - 3 aufSpur 1 der Reihe nach eingele¬ 
sen und auf der Spur 40, in den Sektoren 1 - 8 direkt anschlie¬ 
ßend wieder abgespeichert werden. Damit ist die Übertragung 
des Programmes bereits geschehen und es muß nur noch da¬ 
für gesorgt werden, daß unser Programm auch vom Computer 
wiedergefunden wird. Dazu sind die Bytes 17 - 20 des 
Directoryeintrages in die Werte umzuändern, die der Position 
des Programmes auf Spur 40 entsprechen. Diese Werte sind 
wieder der Tabelle zu entnehmen. Anschließend kann das 
Programm, wie gewohnt mit <RUN > , 'Programmname" ge¬ 
startet werden. Wenn man sich jedoch jetzt mit dem "CATH- 
Befehl ansieht, wieviel Platz noch auf der Diskette vorh anden 
ist, wird man feststellen, daß das Programm auf der 41. Spur 
scheinbar keinen Platz belegt, es werden 178K Free angezeigt. 
Das ursprüngliche Programm ist zwar auch noch auf der 
Diskette vorhanden, wird aber von der Diskettenverwaltung 
nicht mehr zur Notitz genommen, da kein Zeiger des 
Directorys mehr darauf zeigt und der von dem Programm ur¬ 
sprünglich eingenommene Platz wird deshalb von der 
Diskettenverwaltung beim Bespielen der Diskette mit ande- 
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ien Programmen neu vergeben. Mit einem zweiten Pro¬ 
gramm, das auf der43. Spur abgespeichert wird, Spur 42 wenn 

man mit Spur 0 zu zählen beginnt, wird anschließend ähn¬ 
lich verfahren. Auch dieses Programm läßt sich, genauso wie 
das erste, mit < RUN > "Programmname" starten. Leiderließ 
sich aus Gründen, die der Autor bis jetzt noch nicht ermitteln 
konnte, die Spur 41 nicht in ähnlicher Weise verwenden Das 
hier geschilderte Verfahren läßt sich auch mit Sicherheit noch 
verbessern. Leider fehlte bis jetzt noch die Zeit, die Methode 
etwas zu verfeinern und die Abläufe vom Computer steuern zu 
lassen. Ein passendes Computerprogramm kann deshalb leider 
noch nicht mitgeliefert werden. 

Zum Schluß noch einige Hinweise, wie man das, auf diese Art 
und Weise, recht mühsam transferierte Programm relativ 
wirkungsvoll schützt. Durch Addieren einer hexadezimalen 
80 auf den Hexwert des ersten Buchstabens der Dateikennung 
und Einträgen dieses neuen Wertes an der 10. Stelle des 
Directoryeintrages, wird unser transferiertes Programm zum 
Read-Only-File erklärt und läßt sich nicht mehr löschen, es 


sei denn, man formatiert die Diskette neu oder setzt den Wert 
un Directoryeintrag zurück. Das hier geschilderte Verfahren 
zum Übertragen von Programmen auf die 4L und 43. Spur ei¬ 
ner Diskette läßt sich nur von Basic aus verwenden, unter CP/M 
funktioniert es nicht. Programme sollten übrigens auf eine 
solchermaßen vorbereitete Diskette nur mit < SAVE> abge¬ 
speichert werden, da bei Verwendung eines Kopierprogram¬ 
mes wie z.B. »Disckit« sonst die Einträge im Directory wieder 
überschrieben werden. Man kann sich damit helfen, daß man 
anschließend mit Hille eines Discmonitors die Einträge von 
Hand wieder herstellt. Beim Kopieren ganzer Disketten ist 
dieses Verfahren sicher vorzuziehen, da sonst die Disketten 
laufend gewechselt werden müssen und man wesentlich mehr 
»Tipparbeit« leisten muß. »Disckit« überschreibt, das auf die 
oben geschilderte Art und Weise, auf die Spuren 40 und 42 ge¬ 
schriebene Programm übrigens nicht, es befindet sich auch 
nach dem Formatieren und Kopieren, mit Hilfe dieses Pro¬ 
grammes, noch auf der Diskette! Nur die entsprechenden 
Directoryeinträge müssen eben wieder hergestellt werden. 

W. Wantia 


Tabelle zur Umrechnung Block (Directoryeintrag) in Spur und Sektor 


Bl 


02 

03 

04 

05 

06 

07 

08 

09 

0A 

OB 

0C 

0D 

0E 

0F 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
1A 
1B 
IC 
ID 
IE 
1F 

20 
21 
22 

23 

24 

25 

26 


.SP 


0 

0 

0 

1 

1 

1 

1 

2 

2 

2 

2 

2 

3 

3 

3 

3 

4 
4 
4 
4 

4 

5 
5 
5 

5 

6 
6 
6 
6 
6 
7 
7 
7 

7 

8 


5 

7 
9 
2 

4 

6 

8 
1 

3 

5 

7 
9 
2 

4 

6 

8 
1 

3 

5 

7 
9 
2 

4 

6 

8 
1 

3 

5 

7 
9 
2 

4 

6 

8 
1 
3 

5 


Bl 

Sp 

Se 

Bl 

Sp 

Se 

Bl 

Sp 

Se 

Bl 

Sp 

Se 

Bl 


27 

8 

7 

4C 

16 

9 

71 

25 

2 

96 

33 

4 

BB 

41 6 

28 

8 

9 

4D 

17 

2 

72 

25 

4 

97 

33 

6 

BC 

41 8 

29 

9 

2 

4E 

17 

4 

73 

25 

6 

98 

33 

8 

BD 

42 1 

2A 

9 

4 

4F 

17 

6 

74 

25 

8 

99 

34 

1 

BE 


42 3 

2B 

9 

6 

50 

17 

8 

75 

26 

1 

9A 

34 

3 

BF 


42 5 

2C 

9 

8 

51 

18 

1 

76 

26 

3 

9B 

34 

5 

CO 


42 7 

2D 

10 

1 

52 

18 

3 

77 

26 

5 

9C 

34 

7 

CI 


42 9 

2E 

10 

3 

53 

18 

5 

78 

26 

7 

9D 

34 

9 




2F 

10 

5 

54 

18 

7 

79 

26 

9 

9E 

35 

2 




30 

10 

7 

55 

18 

9 

7A 

27 

2 

9F 

35 

4 




31 

10 

9 

56 

19 

2 

7B 

27 

4 

A0 

35 

6 




32 

11 

2 

57 

19 

4 

7C 

27 

6 

Al 

35 

8 




33 

11 

4 

58 

19 

6 

7D 

27 

8 

A2 

36 

1 

l nter Basic 

34 

11 

6 

59 

19 

8 

7E 

28 

1 

A3 

36 

3 

werden die 

35 

11 

8 

5A 

20 

1 

7F 

28 

3 

A4 

36 

s 

Sektoren 1 - 4, 

36 

12 

1 

5B 

20 

3 

80 

28 

5 

A5 

36 

7 

Spur 0 für 
Directorvein- 

37 

12 

3 

5C 

20 

5 

81 

28 

7 

A6 

36 

9 

träge benutzt. 

38 

12 

5 

5D 

20 

7 

82 

28 

9 

A7 

37 

2 

Im System- 

39 

12 

7 

5E 

20 

9 

83 

29 

2 

A8 

37 

4 

format befinden 

3A 

12 

9 

5F 

21 

2 

84 

29 

4 

A9 

37 

6 

sich die Ein- 

3B 

13 

2 

60 

21 

4 

85 

29 

6 

AA 

37 

8 

träge auf 

3C 

13 

4 

61 

21 

6 

86 

29 

8 

AB 

38 

1 


Jspur l. 

3D 

13 

6 

62 

21 

8 

87 

30 

1 

AC 

38 

3 




3E 

13 

8 

63 

22 

1 

88 

30 

3 

AD 

38 

5 




3F 

14 

1 

64 

22 

3 

89 

30 

5 

AE 

38 

7 




40 

14 

3 

65 

22 

5 

8A 

30 

7 

AF 

38 

9 




41 

14 

5 

66 

22 

7 

8B 

30 

9 

BO 

39 

2 




42 

14 

7 

67 

22 

9 

8C 

31 

2 

Bl 

39 

4 




43 

14 

9 

68 

23 

2 

8D 

31 

4 

B2 

39 

6 




44 

15 

2 

69 

23 

4 

8E 

31 

6 

B3 

39 

8 




45 

15 

4 

6A 

23 

6 

8F 

31 

8 

B4 

40 

1 




46 

15 

6 

6B 

23 

8 

90 

32 

1 

B5 

40 
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47 

15 

8 

6C 

24 

1 

91 

32 

3 

B6 

40 

5 




48 

16 

1 

6D 

24 

3 

92 

32 

5 

B7 

40 
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49 
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6E 

24 

5 

93 

32 

7 

B8 

40 
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4A 

16 

5 

6F 

24 
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94 

32 
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B9 

41 
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4B 
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70 
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95 

33 
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BA 
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Super-Sort 

für 464-664-6128 H 


Der schnelle Tabellen-Sort für 
_numerische Tabellen_ 

Dieser Sort weicht von den bisherigen Arten von Sortierpro¬ 
grammen erheblich ab. Es ist ein Sort mit Diskettenbetrieb. 
Der Dateiname ist frei wählbar. Nach Eingabe der Feldzahl 
pro Satz wird die DIM-Anweisung für den Sort bestimmt und 
als Zeile ausgegeben. Die nächsten zwei Zeilen zeigen die Zeit 
für die Laderoutine der Tabelle. Die folgende Zeile gibt die 
Anzahl der geladenen Sätze an. 

Nach der Eingabe der Feldnummer, nach der die Tabelle 
sortiert werden soll, erfolgt eine Prüfung, ob die Tabelle schon 
sortiert ist. 

Ist die Tabelle sortiert, so wird der Sort beendet, ein Hinweis 
und die Zeit ausgegeben. Eine Kontrolle der Tabelle kann an¬ 
gewählt werden. Ist die Tabelle noeh nicht sortiert, so beginnt 
der Sort und gibt entsprechende Kontrollzeilen aus. 

Start Sort 
Ende Satz.Nr. 

Ende Reorg 

Datei steht sortiert auf Dl SC 
Sort ist beendet! 

Danach kann wieder die Kontrolle gewählt werden. 

Hinweis: 

Die Tabelle wird automatisch begrenzt. Ist eine Datei größer 
als Daten geladen werden können, wird der Ladevorgang be¬ 
endet. Dieser Teil der Tabelle kann trotzdem sortiert werden. 
Die maximal ladbaren Sätze mit den dazugehörigen Feldern 
werden zu Beginn des Sorts ausgewiesen: 

“DIM a (xxx.xx) eingerichtet." 

Der Monitor informiert vom Beginn an bis zum Schluß über 
den Ablauf des Programms. Georg Brinkmann 


, SUPER --SORT 
fuer nunerisehe labe1 1 < 

_ von 

Georg Brinkmann 


Dateiname 


abr 


m t 0 6 0 Start Laden 


35 


Zeit O 0 3ß Ende Laden 
S1 Saetze mit je 3S Feldern geladi 


Seit 
feit 
!e l.t 


Sortfield 


S ld 1 - 35 * 

0 Start 
nd« 


_ e 60 _ _ 

0 1 SS Ende 

Datei steht sortiert auf DXSC 
Sort ist beendet! 

Datei anzeigen ,j/n ? J 


7 

Sort 
Satz.Nr . 
Reorg 


10 MODE IrBORDER 0:INK 0,0:INK 1,8:INK 2,2 [2213] 
4:INK 3,11 

20 PEN 2:PRINT" SUPER --SO [1602] 

R T" 

30 PRINT" fuer numerische Tabellen [3326] 

40 PEN 1:PRINT:PRINT" von [2229] 

50 PRINT" Georg Brinkmann [2033] 

60 PRINT" STRINGS(27,"") [1532] 

70 LOCATE 13,7:PEN 2:INPUT"Dateiname ";na [2992] 
$:PEN 1 

80 LOCATE 6,8:INPUT"Feldzahl pro Satz eing [4039] 
eben";fd 

90 satz=INT(6280/fd):IF satz>1500 THEN sat [4111] 
z=1000 

100 DIM a(satz,fd):as=LEN(STR$(satz)):ds*L [3497] 
EN < STR$(fd)) 

110 satz$=RIGHT$(STRS(satz),as-1)+CHR$(44) [31641 
+RIGHTS(STR$(fd),ds-1 ) 

120 LOCATE 7,9:PRINT"DIM ";:PEN 2:PRINT"a (65461 
(" ;satz$PEN 1:PRINT" eingerichtet" 


130 INK 1,5:INK 2,7:INK 3,24 

140 d=INT(TIME/300):G0SUB 610 

150 LOCATE 7,10:PRINT"Zeit ";USING"## ";h 

;m;s;:PRINT" Start Laden" 

160 GOSUB 620:GOSUB 610 

170 LOCATE 7,11:PRINT"Zeit " ;USING"## ";h 
;m;s;:PRINT" Ende Laden" 

180 LOCATE 2,12: PEN 2: PRINT USING"### ";n; 
:PRINT"Saetze mit je";USING" ### ";fd;:PRI 
NT"Feldern geladen":PEN 1 
190 PRINT""; STRING$(40,"."); 

200 LOCATE 11,15:PEN 3:PRINT"Sortfield 1 - 
";fd;:INPUT;q:PEN 1:u=n 
210 FOR z=2 TO n 

220 IF a(z,q) < a(z-1,q) THEN GOTO 290 
230 NEXT:LOCATE 12,17:PEN 3:PRINT"Datei wa 
r sortiert" 

240 PRINT STRINGS(40,);;PEN 3 

250 GOSUB 610 

260 LOCATE 7,19:PRINT" 

Zeit ";USING"## [4740] 

h;m;s;:PRINT" Sort beendet" 

270 INPUT" 

Datei anzeigen j/n";zeig$:IF [4750] 
zeig$="j" OR zeig$="J" GOTO 580 
280 GOTO 600 
290 d=INT(TIME/300) 

300 GOSUB 610 

310 LOCATE 7,16:PRINT"Zeit ";USING"## ";h 
;m;s;:PRINT" Start Sort" 

320 OPENOUT na$:PRINT#9,n : u=n 
330 u=u-1:IF u=0 GOTO 430 

340 FOR z=1 TO n:IF a(z,0)=0 THEN su=z:su1 
=z:zs=1:GOTO 360 
350 NEXT 

360 x=z:IF zs=0 GOTO 430 
370 FOR z=x TO n:IF a(z,0) > 0 GOTO 400 
380 IF a(z,q) < a(su,q) THEN su=z 
390 IF a(z,q) > a(su1,q) THEN sul=z 
400 NEXT 

410 FOR i = 1 TO fd:PRINT#9,a(su,i ):NEXT:FOR 
i=1 TO fd:PRINT#9,a(sul,i):NEXT 
420 zs=0: a(su,0)=n-u: a(sul,0)=u+1:GOTO 3 
30 

430 GOSUB 610 

440 LOCATE 7,17:PRINT"Zeit ";USING"## ";h 
;m;s;:PRINT" Ende Satz.Nr." 

450 CLOSEOUT 
460 GOSUB 620 
470 OPENOUT na$:PRINT#9,n 
480 z=1 

490 FOR x = 1 TO fd:PRINT#9,a(z,x):NEXT:z=z + 

2:IF z > n GOTO 500 ELSE 490 

500 IF n/2 = INT(n/2) THEN z=n ELSE z=n-1 

510 FOR x=1 TO fd:PRINTE9,a(z,x):NEXT:z=z- 

2:IF z < 1 GOTO 520 ELSE 510 

520 CLOSEOUT 

530 GOSUB 610 

540 LOCATE 7,18:PRINT"Zeit ";USING"## ";h 
?m;s;:PRINT" Ende Reorg" 

550 PEN 2:PRINT" 

Datei steht sortiert [2143] 
auf DISC" 

560 PEN 3:PRINT" 

Sort ist beend [2911] 

et!":PEN 3 
570 INPUT" 

Datei anzeigen j/n ";a [6626] 
nz$:IF anz$ = "j" OR anz$ = "J" THEN GOSUB 620 
-.GOSUB 580:END ELSE END 

580 MODE 2:INK 1,26:FOR z=1 TO n:FOR x=1 T 
O fd: PRINT USING"#### . ## " ; a ( z , x ) ; : NEXT: PR 
INT:NEXT 

590 PRINT: PRINT STRINGS(24USING" ### 
# ";z-1 ;: PRINT"Saetze mit je";USING" ### 

";fd;:PRINT"Felder " STRINGS(23; 

600 END 

610 t=INT(INT(TIME/300)-d):h=INT(t/3600):m 
=INT(t/60-(h*60)):s=t-((m*60)+(h*3600)):RE 
TURN 

620 OPENIN na $:LINE INPUT#9,n$:n=VAL{n$) 
630 IF n>satz TUEN n=satz 

640 FOR z=1 TO n:FOR x=1 TO fd:LIRE INPUT# 
9 ,a$ 

650 IF EOF =-1 THEN a < z,x)=VAL(a$):n=z:GOTO 
670 

660 a(z,x)sVAL(a$):NEXT:NEXT 
670 CLOSEIN 
680 RETURN 


[1262] 

[945] 

[2125] 

[1113] 

[4326] 

[7832 ] 


[1194 ] 
(5204 ] 

[1165] 
[2069] 
[5182 ] 

[1600 ] 
[923] 


[413] 

[615] 

[923] 

[4300] 

[2406 ] 
[2861 ] 
[3052 ] 

[350] 
[1 308 ] 
[1539 1 
[3628] 
(22951 
[350] 
(4045 ] 

(2898 1 

[923] 
(4331 1 

[902] 
[921 J 
(1855J 
(470] 
[21803 

(16133 
[2579 ] 

[902 i 
(923 ] 
(41 781 


[6157] 

(7626 ] 

[ 110 ] 

(5765) 


[2442 ) 
[2116] 
[3396 ] 

[2869 ] 

[2609 ) 
(752 ] 
(5551 
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Anwenderfreundliche Programme, ausgereift, in einem vorzüglichen Preis-Leistungsverhältnis 

vom twsoiU/ü, 


RH-DAT 

O Bedienerfreundliches Dateiverwaltungsprogramm mit 
FREIER Maskendefinition (max. 21 Felder/ 
max. 70 Zeichen pro Feld) 

O Verwaltet Ihre Daten auf der Diskette in RELATIVEM 
Zugriff 

O Arbeitet mit einem oder zwei Laufwerken. (Zweites 
Laufwerk kann auch eine RAM-Floppy sein.) 

O Suche nach jedem beliebigen Datenfeld 

O Ein Datensatz wird bei der Suche im Indexfeld selbst 
bei voller Datei (503/1003 Datensätzen) in 
max. 4 Sekunden (Regelfall 1-2 Sekunden) gefunden 

O Läuft unter dem Betriebssystem CP/M*) 

O Testberichte in Schneider CPC International 
Heft 11 und 12/85 - 

O Sie werden staunen, was RH-DAT noch alles kann. 

• 2 Versionen a) 503 Datensätze DM 79- 

b) 1003 Datensätze DM 89 — 

• Für Computer CPC 464,664,6128 und JOYCE 

• Diskettenformat Schneider 3”, Vortex 51/4" 


RH-DMON 

O Absolut anwendersicherer Diskettenmonitor 
O Lesen und Schreiben beliebiger Sektoren 
O Editieren beliebiger Sektoren (Full Screen Editor) 

O Formatieren einzelner oder aller Spuren 
(CP/M, DAT, IBM) 

O Reorganisation der Diskette (räumt die Diskette auf) 
O Anzeige des Katalogs 
O Drucken des Bildschirminhaltes 
O Umrechnung der Blockangaben in Spur und Sektor 
O Bearbeitet AUCH die Spuren 40 und 41!!! 

O Testbericht in Schneider CPC International Heft 2/86 

• 1 Version DM 49,- 

• Für Computer CPC 464,664,6128 

• Diskettenformat Schneider 3” 


RH-MATHEXT 

O Mathematische Textverarbeitung (Neuheit) 

O Anwendersicher, leistungsfähig, aber dennoch einfach 
in der Handhabung 

O Zeigt Text und mathematische Formeln so auf dem 
Bildschirm an, wie der Ausdruck später erfolgt 
O Mit mathematischen Sonderzeichen 
O Ohne Druckersteuerzeichen 
O Läuft nur in Verbindung mit EPSON-kompatiblen 
Druckern 

• 1 Version DM 69,— 

• Für Computer CPC 464,664,6128 

• Diskettenformat Schneider 3", Vortex 51/4" 



INTEGRAL HYDRAULIK 


INTEGRAL HYDRAULIK 
Am Hochofen 108 
D-4000 Düsseldorf 11 
Tel. 0211-5065-213 


TURBO-ADRESS 

O Komfortable Adressenverwaltung mit RELATIVEM 
Zugriff (ca. 700 Adressen) 

O Ausgereifte bedienerfreundliche Textverarbeitung 
(ähnlich WORDSTAR*)) 

O Anwenderfreundliches Verknüpfungsprogramm (Rund¬ 
schreiben, Etikettendruck, Listendruck, usw.) 

O Installationsprogramm für Drucker (auch exotische 
Drucker können angepaßt werden) 

O Läuft unter dem Betriebssystem CP/M*) 

O Für professionelle Anwendungen zugeschnitten 

O Ein Muß für jeden, der häufig Adressen und Texte 
verknüpft 

• 2 Versionen a) 700 Adressen DM 149,— 

b) 1400 Adressen DM169,- 

• Für Computer CPC 464,664,6128 und JOYCE 

Version b) gilt nur für JOYCE in Ver¬ 
bindung mit Megabyte-Laufwerk. 

• Diskettenformat Schneider 3", Vortex 51/4" 


RH-BUERO 

O Integriertes Programmpaket 
O Komfortable Adressenverwaltung 
O Anspruchsvolle Textverarbeitung 
O Leistungsfähiges Verknüpfungsprogramm (Rund¬ 
schreiben, Etiketten- und Listendruck) 

O Schaufensterwerbung (erstellte Texte können als 
Laufband ausgegeben werden) 

O Installationsprogramm für Drucker 
O Für semi-professionelle Anwendungen geeignet 
O Testbericht in Schneider CPC International Heft 8/85 

• 1 Version DM 69,— 

• Für Computer CPC 464,664,6128 

• Diskettenformat Schneider 3", Vortex 51/4" 


Software-Boxen 

O Farbe weiß 

O Format wie Videohüllen 

O Einlegbare Disketten-Formate: 51/4”, 31/2”, 3" 

• 10 Stück DM30,- 


Vereins Verwaltung 

O Komplexes Paket zur Vereinsverwaltung 
O Anwendersichere Mitglieder- und Beitragsverwaltung 
mit Paßwortschutz 

O Kantenführung mit einfachster Verbuchung und 
Jahresbilanzerstellung 
O Ein Muß für jeden Verein 


1 Version Df 

Für Computer CPC 464,664,6128 
Diskettenformat Schneider 3”, Vortex 51/4" 


99.- 


Einsteigerpaket 

O Adressenverwaltung 
O Textverarbeitung 
O Synthesizer (Musikprogramm) 

O Vokabel-Lernprogramm 
O Funktionsplotter (Mathematikprogramm) 

• 2 Versionen a) Kassette DM 50,- 

b) Diskette DM 70,- 

• Für Computer CPC 464,664,6128 

• Diskettenformat Schneider 3”, Vortex 51/4” 


(zuzüglich Porto und Verpackung) 


*) CP/M ist ein eingetragenes Warenzeichen der Firma 
Digital Research 

*) WORDSTAR ist ein eingetragenes Warenzeichen 
der Firma Micro Pro 



Programme und Softwareautoren für 
Schneider CPC 464,664,6128 und JOYCE gesucht 


R.C.5., 



SÜFTLURRE 


Vertrieb Niederlande: 

ACS Nederland 
Tel. 083 46-38 50 
NL-7041 BG’s-Heerenberg 


Bestellungen, die bis 12 Uhr bei uns eintreffen, verlassen am selben Tag das Haus. 

COMPUTER DIVISION 0211-5 06 5213 

Was Sie heute bestellen, kann schon morgen bei Ihnen sein. 


Unsere Produkte sind natürlich auch im Alle Preise inkl. 14 % MwSt. 
guten Fachhandel erhältlich. zuzüglich DM 5,~ Versandkosten. 
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DISC-IN 


für 464 



Mit dem Programm DISC-IN muß die Diskettenstation 
während längerer Tipparbeiten nicht ständig eingeschaltet 
sein, sondern kann später für die Abspeicherung aktiviert 
werden. 

Um dies zu erreichen, geht man folgendermaßen vor: 

1. Nachdem die Tipparbeit beendet ist. Floppy einschalten. 

2. Umschallen auf Kassette mit ITape 

3. MERGE "DISC-IN" 

4. RUN 60000 


5. Abspeicherung des abgetippten Programms 

Natürlich ist daraufzu achten, daß sich die Zeilennummern 
des abgetippten Programms und des Programms "DISC-IN" 
nicht überschneiden. 


"DISC-IN” arbeitet 


auf folgende Weise: 


1. Es wird die SYMBOL-Tabelle um den RAM-Bedarf der 
Floppy nach unten verschoben 


2. Das Hintergrund-ROM Nr. 7 der Floppy wird initia¬ 
lisiert. 


Gerhard Friedle 



60000 MEMORY &9FFF 

60001 DATA DD,6E,00,DD,66,01,ED,5B,96,B2,7 
2,11,00,05,ED,52,ED 

60002 DATA 5B, 94,B2,CD,AB,BB,21 ,FF,AB,01 ,0 
7,00 , CD, CE, BC, C9 

60003 s=0:RESTORE 60001:FOR i=&A000 TO &A0 
20:READ a$:a=VAL("&"+a$):POKE i,a:s=s+a:NE 
XT 


60004 IF s< >4250 THEN PRINT"Fehler in den 
Data-Zeilen!":END 


60005 

60006 

60007 

60008 

60009 

60010 
6001 1 
6001 2 
6001 3 
6001 4 
6001 5 


x%=0 

CALL &A000 

DELETE 60000-60015:END 

'* DISC-IN * 

• * « 

1 * von: Gerhard Friedle * 
1 * A-57 71 Leogang * 

1 * * 


1 * 


# 


1134] 
[2341] 

13427] 

[6507] 


[2892] 

1532] 
[637] 
[1670] 
[1285] 
[442] 
[175] 
[1904 ] 
[982 ] 

[175] 

[1285] 


D-l-R 



für 464-664-6128 


D-I-R steht für DISC-Information-Reader und ist ein Hilfs¬ 
programm. das den Diskettenanwender auf einfache Weise 
hilft, Informationen über die einzelnen Files auf seine 
Diskette zu bekommen. Das Programm ist einteilig und sehr 
kompakt aufgebaut. 

Leistungsmerkmale von D-I-R: 

- ermittelt Startadresse von jedem Diskettenfile (ausgenom¬ 
men CP/M-Files und Textdateien) 

- ermittelt Länge in Bytes von jedem Diskettentile (ausge¬ 


nommen CP/M-Files und Textdateien) 

- ermittelt Länge in KBytes von jedem Diskettenfile 

- ermittelt Einsprungadresse (wenn vorhanden) von jedem 
Diskettenfile (ausgenommen CP/M-Files und Textdateien) 

- ermittelt Filenamen überhaupt 

- ermittelt Filetyp (&,’,$,*,...) 

- ermittelt die Anzahl von Files auf einer Diskette 

- ermittelt das Format, mit dem die Diskette formatiert 
wurde. 

Variablen von D-I-R: 

Basis: Adresse im Directorybuffer, aus der die Filenamen und 
die Filelängen ausgelesen werden. 

Status: Wenn das Programm nochmal durch den Benutzer 
durch ENTER gestartet wird, dann ist Status = -1 und das 
Programm weiß, daß es verschiedene Programmabschnitte 
nicht nochmal durchlaufen muß. 

A$,BS: sind die Hexstrings, die aus den jeweiligen Adressen 
ausgelesen werden. 

Name$: der Filename 
nml: Länge des Filenamens 
nmadr: Adresse, in der der Filename steht 
flag: wenn flag=5 ist, dann steht im Directorybuffer fünfmal 
hintereinander eine Null, d.h., daß das Directory fertig ausge¬ 
lesen ist. 

f: Anzahl der gelesenen Files 

Das eigentliche Geheimnis des Programms liegt darin: 
Wenn man in Assembler einen Openout durchführt, hat man 
schon in zwei Registern Statt und Länge des Programms. 
Filetyp und Einsprungadresse werden einem nicht sofort auf 
dem Tablett serviert, man muß noch an den Registern herum¬ 
basteln, bis man auch diese hat. Das Programm hat einen klei¬ 
nen Nachteil, es liest keine vom Assembler "GENA" er¬ 
stellten Files richtig aus. Ansonsten gibt es keine Probleme. 
Selbst wenn das Programm gerade beim Auslesen von Files 
ist, kann man es beenden, indem man "E" bzw. ”e” drückt. 

M. Wegman 

100 REM **»**************•***«**«*-******* [1887] 

110 REM * D.I.R. Disc Information Reade [2563] 
r * 

120 REM * (C) 1986 by WEGIwar [1050] 

e * 

130 REM * Written by M. WEGMAN [1653] 


N * 

140 REM ********************************** [1887] 
****************** 

150 IF STATUS=-1 THEN CLS:PRINT" 17659] 


Diskette einlegen und RETURN/ENTER drue 
cken 5" :BASIS=&7000:FLAG=0:NAME$ = :F=0 : 
st=0:GOTO 460 

160 INK 1,26:INK 0,26:PAPER 0:PEN 1:BORDER [2214] 


26:MODE 2 

170 REM ***************************** [1471] 
180 REM * Windows definieren * [1988] 
190 REM ***************************** [1471] 
200 WINDOW #6,80,80,5,22 [1454] 
210 WINDOW #5,1,80,22,22 [1389] 
220 WINDOW #4,1 ,2,5,22 [1094] 
230 WINDOW #3,1,80,4,4 [1181] 
240 WINDOW #2,1,80,23,25 [1455] 
250 WINDOW #1,1,80,1,4 [1004] 
260 WINDOW #0,2,79,6,19 [1075] 
270 basis=&7000:f=0:st=0 [677] 


280 REM ********************************** [1867] 
290 REM * Bildschirmmaske / Titelbild [5642] 


printen * 

300 REM ********************************** [1867] 
310 : [174] 


320 PRINT #1,CHR$(150);:FOR t=1 TO 78:PRIN [3574] 
T #1,CHR$(154);:NEXT:PRINT #1,CHR$(156 ) ; 

330 PRINT #1 ,CHR$(149)" D.I.R. [7618] 

Disc Information Reader (C) 1986 by W 
EGIwäre "CHR$(149); 

340 PRINT #1,CHR$(147>;:FOR t=1 TO 78:PRIN [4607] 
T #1,CHR$(154);:NEXT:PRINT #1,CHR$(153); 

350 PRINT #2,CHR$(150);:FOR t=1 TO 78:PRIN [37231 
T #2,CHR$(T54);:NEXT:PRINT#2,CHR$(156); 

360 PRINT #2,CHR$(149)" Anzahl [3131] 

der Files:"f" 
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"CHR$(149); 

370 PRINT #2,CHR$(147);:FOR t=1 TO 78:PRIN (3476] 
T ff 2 ,CHR$ (154); :NEXT: PRINT ff2 ,CHR$ (1 53 ) ; 

380 PRINT #3,CHR$(150);:FOR t=1 TO 78:PRIN (3019) 
T ff 3 ,CHR$ (154); :NEXT:PRINT#3 ,CHR$ (156); 

390 FOR t=1 TO 17:PRINT #4,CHR$(149):NEXT (1924] 
400 PRINT ff 5 ,CHR$ (147);: FOR t = 1 TO 78:PRIN (3799] 
T ff 5 , CHR$ (154); : NEXT: PR INT ffS ,CHR$ (1 53 ) ; 

410 FOR t=1 TO 1 7 : PRINT ff6 , CHR$ (149);: NEXT (1716] 
420 PRINT" Diskette einlegen u [4483] 

nd RETURN/ENTER druecken !" 

430 GOSUB 920;'******* Maschinenkode einle 15257] 

sen ******* 

440 INK 1,0:REM ******* Bildschirmmaske si [4265] 
chtbar machen ******* 


450 ; [174] 

460 IF INKEY$ = CHR$(13) THEN 480 [1065] 

470 GOTO 460 [456] 

480 LOCATE 1,1:FOR t=1 TO 78:PRINT" ";:NEX [2580] 

T 

490 : [174] 

500 REM ***************** [1160] 


510 REM * Hauptprogramm * 

520 REM ***********.* 

530 a=PEEK(&BB5A):POKE &BB5A,&C9:CALL &A03 
0:POKE &BB5A,a:REM ******* Directory lesen 
ohne dass es auf dem Bildschirm ausgedruc 
kt wird ******* 

540 IF PEEK(&A89F)=65 THEN PRINT"Die Diske 

tte hat CP/M Format".-PRINT:GOTO 570 

550 IF PEEK(&A89F)=193 THEN PRINT"Die Disk 

ette hat DATA Format":PRINT:GOTO 570 

560 PRINT"Die Diskette hat IBM Format":PRI 

NT 

570 IF PEEK(basis+11)=0 AND st=0 THEN 1280 
580 FOR t=1 TO 8 :name$=name$+CHR$(PEEK(t+b 
asis)):NEXT 

590 f=f+1:REM ******* Fileanzahl erhoehen 

******* 

600 name$=name$+"." 

610 FOR t=9 TO 11 :name$=name$+CHR$(PEEK(t+ 
basis)):NEXT 

620 PRINT name$;CHR$(149); 

630 LOCATE #2,1 ,2: PRINT ff 2 , CHR$ (1 4 9 ) " 
Anzahl der Files:"f" 

640 adr=@name$ 

650 nml=PEEK(adr) :REM **** nml = Laen 

ge des Namens *«** 

660 nmadr=PEEK(adr+1 ) + 256*PEEK(adr+2) :R 

EM nmadr = Adresse , wo der Name liegt *** 

* 

670 CALL &A000,nmadr,nml 

680 PRINT CHR$(PEEK(9015));CHR$(149);:IF P 
EEK(9015)=42 THEN GOTO 1120 :REM **** Ausg 
abe des Filetyps 

690 pkadr=9000:GOSUB 1160 :REM **** ausl 

esen der Speicheradressen 9000,9001 **** 


(1191 ] 
[1160] 
(11096 ] 


[4627] 

[4480] 

[4075] 

[2951 ] 
(3074 ] 

(4688 ] 

(1 463) 
[2835] 

(1052] 
[4384 ] 

(461 ] 
[2768] 

[51 42 ] 


[1718] 

[6515] 


[5143] 


700 GOSUB 1190 :REM **** -E- Taste gedru 13410] 
eckt ? **** 

710 PRINT"Startadresse &"b$;a$;CHR$(149); [3430] 

720 pkadr=9005:GOSUB 1160 :REM **** ausl [6835] 
esen der Speicheradressen 9005,9006 **** 

730 GOSUB 1190 :REM ***• -E- Taste gedru (3410) 
eckt ? **** 

740 PRINT"Laenge &"b$;a$;CHR$(149); [2867] 

750 pkadr=901 0:GOSUB 1160 :REM **** ausl [5250] 

esen der Speicheradressen 9010,9011 **** 

760 GOSUB 1190 :REM **** -E- Taste gedru (3410] 

eckt ? **** 

770 IF a$="00" AND b$="00" THEN a$="--":b$ [2195] 
=a$ 

780 PRINT"Einsprungadr. &"b$;a$;CHR$(149); [2622] 
790 PRINT"KByte:"PEEK(basis+12) [3650] 


800 GOSUB 1190 
810 : 

820 REM ********************************** 
•••«•• 


[909] 
[174] 
[1846 ] 


830 REM * Adresse vom naechsten Filenamen [3884] 
im * 

840 REM * Buffer suchen , auf Ende pruefen 13399] 


850 REM ***************.*****.*.*..*****.. [1846] 
* * * * « * 


860 basis=basis+ 11 :flag =0 [2163] 

870 IF PEEK(basis)=255 THEN name$="":GOTO [2475] 


570 

880 IF PEEK(basis)=0 THEN flag=flag+1:IF f [3583] 
lag=5 THEN 1210: 

890 REM **** wenn 5 mal hintereinander ein [7449] 
e Null im Buffer ist , dann Directory zu e 


nde ->ENDE **** 

900 basis=basis+1:GOSUB 1190 [1887] 

910 GOTO 870 [534] 

911 : [174] 

912 REM **** Maschinensprache - Datas einl [4286] 
esen **** 

920 MEMORY &9FFF [134] 

930 zaehler=0 [1175] 

940 READ a (396) 

950 IF- a=-1 THEN RETURN [1108] 

960 POKE &A000+zaehler,a [1184] 

970 zaehler=zaehler+1 [2165] 

980 GOTO 940 [312] 

990 : [174] 

1000 DATA 254,002,192,221,102,003 [988] 

1010 DATA 221,110,002,221,070,000 [1659] 

1020 DATA 017,000,112,205,119,188 [1582] 

1030 DATA 237,083,040,035,237,067 [1109] 

1040 DATA 045,035,017,026,000 [1466] 

1050 DATA 025,078,035,070,237,067 [1934] 

1060 DATA 050,035,230,015,198,036 [1250] 

1070 DATA 050,055,035,205,122,188 [1363] 

1080 DATA 201 [261 ] 

1090 DATA &11,&00,&70,&cd,&9b,&bc [1873] 

1100 DATA &c9 [347] 

1110 DATA -01 [284] 

1120 PRINT" "CHR$(149)" [5236] 

"CHR$(149)" "C 

HR$(149)"KByte:"PEEK(basis+12 ):GOTO 860 
1130 REM ********************************* [2675] 

1140 REM * Adressen auslesen und gegebenen [5226] 
falls Hex - Strings auffuellen * 

1150 REM ***************..«..*..***..*..*« (2675) 





1160 st=1:a$=HEX$(PEEK(pkadr+0)):IF LEN(a$ [6158] 
)<> 2 THEN c$="0":c$=c$+a$:a$=c$ 

1170 b$=HEX$(PEEK(pkadr+1)):IF LEN(b$) <> [3991] 

2 THEN c$="0":c$=c$+b$:b$=c$ 

1180 RETURN (555] 

1190 IF INKEY$="e" OR INKEY$="E" THEN 1210 [1308] 
1200 RETURN [555] 

1210 CALL &BB03:REM **** Tastaturbuffer le [3400] 
eren ** * * 

1220 LOCATE #1,1,2:PRINT #1 ,CHR$(149 ) " [5178] 

Press -RETURN- TO RESTART OR 
-E- TO END "CHR$(149) 

1230 a$="":WHILE a$="":a$=INKEY$:WEND [2835] 

1240 IF a$="E" OR a$="e" THEN MODE 2:END [1655] 
1250 IF a$=CHR$(13) THEN 1270 [1787] 

1260 GOTO 1230 [365] 

1270 STATUS=-1:LOCATE #1,1,2:PRINT #1,CHR$ [11577] 
(149)" D.I.R. Disc Informati 

on Reader (C) 1986 by WEGIware 
"CHR$(149); :GOTO 150 

1280 PRINT"Kein File Vorhanden !":GOTO 121 [4020] 

0 



Disk-Manager 


für 464-664-6128 



Der Disk-Manager ist ein anwenderfreundliches Toolkit zur 
Bearbeitung von Directorys und Dateien. 

Nach dein Starten mit RUN erscheint folgendes Menue: 

Mit den Pfeiltastenf t läßtsichdas-* vertikal positionieren. 
Wird gleichzeitig die CONTROL-Taste gedrückt, so springt 
das ◄ in die oberste bzw. in die unterste Zeile. 

Beinhaltet die Directory mehr als 25 Eintragungen, so wird 
die Liste geteilt. 

< R>.RUN 

startet ein mit < bezeichnetes Programm 

< L>.LOAD 

lädt ein mit ◄ bezeichnetes Programm 
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< C>.CATDRUCK 

gibt das Inhaltsverzeichnis auf dem Drucker aus (ist nur bei 
eingeschaltetem Drucker eingeblendet). 

< C>.DISKLIST 

gibt das Inhaltsverzeichnis auf dem Drucker aus, wobei die 
Länge des Files (in K) angezeigt wird. (Ist nur bei einge¬ 
schaltetem Drucker eingeblendet.) 

< U>.USER 

ermöglicht das Wechseln des USER-Bereichs (0 bis 15) 

< F>.FLOPPY 

ermöglicht die Wahl des Laufwerks (A oder B) 

< DEL>.DELETE 

verzweigt in das DELETE-MENUE, welches folgende 
Funktionen bereitstellt: 

Das < wird wie zuvor gesteuert. 

< SPACE> 

markierte als zu löschendes File mit * (wird durch zweimali¬ 
gen Druck rückgängig gemacht). 

< ENTER> 

löscht alle markierten Files und geht zurück zum 
Hauptmenue 

< E> 

löscht alle markierten Files, führt den üblichen lERA-Befehl 
aus und geht zurück zum Hauptmenue 
CTRL < DEL> 

löscht die gesamte Diskette im aktuellen USER-Bereich 

CTRL < R>.RENAME 

dient zur Umbenennung von Files 

< SPACE> 

meldet eine neue Diskette an 

< COPY> 

kopiert den DISK-MANAGER 
CTRL < C> .CPM 

< ENTER>.BASIC 

CTRL < D> 

verzweigt in das Menue zur Druckereinstellung: 

< N> NLQ ein/aus 

< 1> Zeichensatz 1 

< 2> Zeichensatz 2 

< E> Engschrift ein/aus 

< H> Zeichenhervorhebung ein/aus 

< D> Doppelanschlag ein/aus 

< V> Zeichenvergrößerung ein/aus 

< M> Menue 
CTRL < U> , 

Umlaute installieren 
CTRL < F> 

Funktionstasten belegen 


Folgende Funktionen stehen nach Beendigung des Pro¬ 
gramms im Basic zur Verfügung: 

17.NLQ ein 

f8.Normalschrift ein 

19.List #8 

14.LOAD ” 

f5.RUN ” 

f6.SAVE ” 

fl.AUTO 

f2.MODE 2:LIST 

f3.CAT 

fO.CLS 

TAB.LINE FEED (Drucker) 

< >.RUN 

CTRL < T>.TURBO DOS aktivieren Jürgen Gergens 
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DISC-MANAGER 


ON 6.0/464-6128 


VERSI [2523] 


(c) 1986 by Juergen Gerkens 


20 ' 

30 ’ 

40 CALL &BB00:POKE SAC00,1:SYMBOL AFTER 25 
6 :KEY 12,"RUN"+CHR$(34)+"#"+CHR$(34)+CHR$( 
13) 

50 |USER,0:|DISC:ON ERROR GOTO 100 
60 IN$=CHR$(24) 

70 FOR 1=47840 TO 47848:READ A:POKE I,A:NE 
XT I 

80 DATA 205,96,187,50,240,186,201,0,0 
90 DIM F$(65),S(65) 

100 PEN 1:PAPER 0:PEN#1,0:PAPERN1,1:MODE 2 


[2627 ] 
[1412 ) 
[54451 


[1820 ] 
[636 ] 
[3359] 

[1 366] 

[767] 

[2583] 


:CAT:N=0:T=0 

110 LOCATE 7,2:CALL &BAE0:f1$=CHR$(PEEK(SB 
AF0>) 

120 LOCATE 15,2:CALL &BAE0:us$=CHR$(PEEK{& 
BAF0)):PRINT CHR$(9);:CALL &BAE0:us$=us$+C 
HR$(PEEK(&BAF0)):us=VAL{us$) 

130 FOR Z=1 TO 61 STEP 20:FOR Y=4 TO 19:N= 
N+1:T=MAX(T,Y):F$(N):S(N)=0 
140 FOR X=Z TO Z+1 6 

150 LOCATE X,Y:CALL &BAE0:F$(N)=F$(N)+CHR$ 

{PEEK(&BAF0)):IF F$(N)=" "THEN 170 

160 NEXT X:NEXT Y 

170 F$(N)="":N=N-1:NEXT Z:T=T+1 

180 LOCATE 1,T:A$="":FOR Z=1 TO 10:CALL &B 

AE0:A$=A$+CHR$(PEEK(&BAF0)):PRINT CHR$(9); 

:NEXT Z 

190 IF INSTR(1,F$(1=0 AND F$(1)<>""T 
HEN 100 

200 WINDOW#0,1 ,50,1 ,25:WINDOW#1,51 ,80,1,25 
210 CLS # 1 :CLS 

220 PRINT#1," DISK-MANAGE R":P 

RINT#1 , "- 

230 PRINT#1 , " <R> .RUN" 

240 PRINT#1 , " <L > .LOAD" 

250 IF INP( &F500) =90 THEN 270 ELSE PRINT#1 

,"<C>.CATDRUCK" 

260 PRINT#1,"<D>.DISKLIST" 

270 PRINT#1 ,"<U>.USER" 

280 PRINT#1,"<F>.FLOPPY":PRINT#1 

290 PRINT#1 ,"<DEL>_DELETE" 

300 PRINT#1,;IN$;"R";IN$;">.RENAME 

310 PRINT#1,"<SPACE>..neue Disk anmelden" 
320 PRINT#1,"<COPY>...DISKMANAGER kopieren 
":PRINT#1 

330 PRINT#1, " <" ;IN$;"C";IN$;">.CPM" 

340 PRINT#1,"<ENTER>..BASIC":PRINT#1 

350 IF INP(&F500)=90 THEN 360 ELSE PRINT#1 

,"<";IN$;"D";IN$;">.Drucker einstelle 

n" 

360 PRINT#1,";IN$;"U";IN$;">.Umlaut 

e installieren" 

370 PRINT#1,"<";IN$;"F";IN$;">.Funkti 

onstasten" 

380 PRINT#1,";IN$;"T";IN$;">.TURBO 

DOS":PRINT#1 

390 LOCATE#1,23,3:PRINT#1,CHR$(240)";CH 
R$(241);CHR$(8);CHR$(8);CHR$(8);CHR$(10);C 
HR$(10);IN$;CHR$(240);IN$;" ";IN$;CHR$(241 

); ins 

400 LOCATE#1,2,23:PRINT#1,in$;:PRINT#1,USI 
NG"Drive \\: user ##: \ \";fl$,us,a$ 

;:PRINT#1,in$ 

410 LOCATE#1,1,25:PRINT#1," ";CHR$(164);" 

1986 by Juergen Gerkens" 

420 A=1 :B=25:Z=1 

430 GOSUB 1760:CLS:FOR W=A TO MIN(B,N):PRI 
NT F$(W):NEXT W 

440 LOCATE 25,Z-A+1:PRINT CHR$(247) 

450 CALL &BB06 

460 LOCATE 25,Z-A+1:PRINT" " 

470 IF INKEY(2)=0 THEN Z=MIN{Z+1,N):IF Z>B 
THEN A=A+25:B=B+25:Z=A:GOTO 430 
480 IF INKEY(0)=0 THEN Z=MAX(Z-1,1):IF Z<A 
THEN Ä=A-25:B=B-25:Z=B:GOTO 430 
490 IF INKEY(2)>0 THEN Z=MIN(Z+25,N):IF Z> 
B THEN A=A+25:B=B+25:Z=A:GOTO 430 
500 IF INKEY(0)>0 THEN Z=MAX{Z-25,1):IF Z< 
A THEN A=A-25:B=B-25:Z=B:GOTO 430 
510 IF INKEY(50)=0 THEN MODE 2:RUN LEFT$(F 
$ ( Z ), 1 2 ) 

520 IF INKEY(36)=0 THEN MODE 2:LOAD LEFT$( 
F$(Z),12 ) 

530 IF INKEY(62)=0 THEN GOTO 1440 

540 IF INKEY(61)=0 THEN GOTO 1570 

550 IF INKEY(42)=0 THEN CLS#1:INPUT#1,"USE 

R-NR.:",T:T=MIN(15,INT(ABS(T))):|USER,T:GO 

TO 100 

560 IF INKEY{53)=0 THEN CLS#1:PRINT#1,"FLO 
PPY :"ELSE 600 

570 IF INKEY{69)=0 THEN!A:GOTO 100 
580 IF INKEY{54)=0 THEN|B:GOTO 100 
590 GOTO 570 

600 IF INKEY(79)=0 THEN GOTO 1210 

610 IF INKEY(50)>127 THEN LOCATE 1,Z-A+1:I 

NPUT"",B$:C$=LEFT$(F$(Z),12):j REN,@B$,@C$: 
GOTO 100 

620 IF INKEY(47)=0 THEN!USER,0:GOTO 100 
630 IF INKEY(62)>127 THEN MODE 2:[CPM 


(3302 ] 
[5783 ] 


(3302 ) 

[1003 3 
[3045] 

[980 ] 
[1307 ] 
[4473] 


[1743 ] 

[1745 ] 
[554] 
[4121 ] 

[1702] 

[2458] 

[2587] 

[1588] 
[1474 } 
[2384] 
[1767 } 
[1975] 

[2848] 
[3071 ] 

[2446 ] 
[2883 ] 
[6242] 


[3918] 
[3037] 
[2877] 
[6482] 


[8197] 


[3229] 

[1257] 
(3611 ] 

[2009 ] 
[393 ] 
[1734 ] 
[4512] 

[3031] 

[5185] 

[4458] 

[1898] 

[2982 ] 

[1 354 ] 
[1761 ) 
[4405 ] 


[3183 ] 

[1770] 
[840 ] 
(379) 
[1 364 ] 
[3597 ] 


[1749] 

[2075] 
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640 IF INKEY(9)=0 THEN SAVE"#":GOTO 100 
650 IF INKEY(61)>127 THEN GOTO 950 
660 IF INKEY(42)>127 THEN GOSUB 850 
670 IF INKEY(53)>127 THEN GOSUÖ 710 
680 IF INKEY(51)>127 THEN GOSUB 1700 
690 IF INKEY( 6 )=0 OR INKEY(18)=0 THEN MODE 
2: NEW 

700 GOTO 440 

710 KEY 7,"?#8,CHR$(27);"+CHR$(34)+"x1"+CH 
R$(34)+": 1 NLQ"+CHR$(13) 

720 KEY 8 ,"?# 8 , CHR$ {*27 ) ; "+CHR$ ( 34 ) + "x2"+CH 
RS(34)+":' NORM"+CHR$(13) 

730 KEY 9,"list#8" 

740 KEY 4,"load"+CHR$(34) 

750 KEY 5,"run"+CHR$(34) 

760 KEY 6 ,"save"+CHR$(34) 

770 KEY 1,"auto " 

780 KEY 2,"mode 2:list " 

790 KEY 3,"CAT" 

800 KEY 0,"CLS"+CHR$(13) 

810 KEY 10,"RUN"+CHR$(13) 

820 KEY 141 , "?#8"+CHR$(13):KEY DEF 68,1,14 
1 

830 KEY 1 2,"iDISC:RUN"+CHR$(34)+"#"+CHRS(3 
4)+CHR$(13) 

840 RETURN 

850 SYMBOL AFTER 90 

860 SYMBOL 91,&5A,&3C,&66,&66,&7E,&66,£66, 
&0 

870 SYMBOL 92,&BA,S6C,£C6,£C6,£C6,£6C,£38, 
£0 

880 SYMBOL 93,£ 66 ,£0,£ 66 ,£ 66 ,£ 66 ,£ 66 ,£3C,£ 
0 

890 SYMBOL 123,&48,&0,&78,£C,£7C,&CC,£76,& 
0 

900 SYMBOL 1 24,£24,£0,£3C,£66,£66,£66,£3C, 
£0 

910 SYMBOL 125,£44,£0,£66,£66,£66,£66,£3E, 
&0 

920 SYMBOL 126,£38,&6C,£6C,&6C,&66,£76,£6C 
, £60 

930 KEY DEF 26,1,125,93,124:KEY DEF 17,1,1 
24,92:KEY DEF 19,1,123,91 
940 RETURN 

950 IF INP(&F500)=90 THEN 200 ELSE MODE 2: 
WINDOW#0,25,60,5,25 

960 PRINT"Drucker einstellen:PRINT"- 

-PRINT:PRINT 

970 PRINT"<N>...NLQ ein":PRIN 

T 

980 PRINT"<1>...Zeichensatz 1 aus" 

990 PRINT"<2>...Zeichensatz 2 ein":PRIN 
T 

1000 PRINT"<E>...Engschrift aus" 

1010 PRINT"<H>...Hervorhebung aus" 

1020 PRINT"<D>...Doppelanschlag aus" 

1030 PRINT"<V>...Vergroesserung aus" 

:PRINT 

1040 PRINT"<M>...Menue" 

1050 GOSUB 1760:DN=1:DE=0:DH=0:DD=0:DV=0 
1060 CALL &BB06:IF INP(£F500)=90 THEN 1190 
1070 IF INKEY(46)<>0 THEN 1090 ELSE DN=1-D 
N 

1080 IF DN=1 THEN LOCATE 24,5:PRINT"ein 
":PRINT#8,CHR${27);"xl"ELSE LOCATE 24,5:P 
RINT" aus":PRINT# 8 ,CHR$ < 27);"x2" 

1090 IF INKEY(64)=0 THEN LOCATE 24,7:PRINT 
"ein ":LOCATE 24,8:PRINT" aus":PRINT 
#8,CHR$(27);CHR$(55) 

1100 IF INKEY(65)=0 THEN LOCATE 24,7:PRINT 
1 aus":LOCATE 24,8:PRINT"ein ":PRINT 
#8,CHR$(27);CHR$(54) 

1110 IF INKEY(58)<>0 THEN 1130 ELSE DE=1-D 
E 

1120 IF DE=1 THEN LOCATE 24,10:PRINT"ein 
":PRINT#8,CHR$(15)ELSE LOCATE 24,10:PRIN 
T" aus":PRINT#8,CHR$(18) 

1130 IF INKEY(44)<>0 THEN 1150 ELSE DH=1-D 
H 

1140 IF DH=1 THEN LOCATE 24,11 :PRINT"ein 
":PRINT#8,CHR$(27 ) ;CHR$(69)ELSE LOCATE 2 
4,11:PRINT" aus":PRINT#8,CHR$(27);CHR$( 

70) 

1150 IF INKEY(61)<>0 THEN 1170 ELSE DD=1-D 
D 

1160 IF DD=1 THEN LOCATE 24,12:PRINT"ein 
":PRINT#8,CHR$(27);CHR$(71)ELSE LOCATE 2 
4»|2:PRINT" aus":PRINT#8,CHR$(27);CHR${ 


1329] 
[1245] 
[1308] 
[1660] 
11583] 
[1 385] 

[444 ] 
(4344 ] 

[2432] 

[950] 
[61 1 1 
[714] 
[10731 
(769 1 
[994 ] 
[477] 
[1698] 
(1945 ] 
[2116] 

[2682 ] 

[555] 
[1214] 
[2260 ] 

(2305) 

(2316 ] 

[1768] 

[2269] 

[1841 ] 

12642 ) 

[3363 ) 

[555 ] 
[3730] 

[5547] 

[2700] 

[2742] 

[2919] 

[24321 

[3060] 

[3056] 

[2647] 

[834] 

[1 360 ] 
[1616] 
[1795] 

(6462] 

[3996] 

15256 ] 

(712) 

[5469] 

[1136] 

[6532] 


[1593 ] 
(6901 ] 


1310 

1320 

1330 


>B THEN 
1360 IF 
<A THEN 


1170 IF INKEY{55)< >0 THEN 1190 ELSE DV=1-D [2264] 
V 

1180 IF DV=1 THEN LOCATE 24,13:PRINT"ein (7445) 
":PRINT#8,CHR$(27);CHR${ 87 ); "1"ELSE LOCA 
TE 24,13:PRINT" aus":PRINT08,CHR${27);C 

HR$(87);"0" 

1190 IF INKEY(38)=0 OR INKEY(18)=0 OR INKE [3701] 
Y( 6 )=0 OR INKEY(47)=0 THEN 200 

1200 GOTO 1060 [311) 

1210 CLS#1 [3731 

1220 PRINT#1,"DELETE:":PRINT#1,"-":P [2911] 

RINT#1 

1230 PRINT#1 ,"<SPACE>..markieren":PRINT#1 [2983] 
1240 PRINT#1,CHR$(240);" ";CHR$(241);" " [4745] 

;IN$;CHR$(240);INS;" ";INS;CHR$(241);INS: 

PRINT#1 

1250 PRINT#1,"«ENTER >..DELETE":PRINT#1 [1828] 

1260 PRINT#1,"<E>.ERA":PRINT#1 [2218] 

1270 PRINT#1," ;INS;"DEL";IN$;">_Diske [4813] 

tte loeschen":PRINT#1 

1280 GOTO 1300 [438] 

1290 GOSUB 1760:CLS:FOR W=A TO MIN(B,N):PR [4993] 

INT F$(W);" ";CHRS(32+s(w)*10):NEXT W 

1300 LOCATE 25,Z-A+1:PRINT CHR$(247) [2009] 

CALL &BB06 [393] 

LOCATE 25,Z-A+1:PRINT" " [1734] 

IF INKEY(2)=0 THEN Z=MIN(Z+1,N):IF Z> [4476] 
B THEN A=A+25:B=B+25:Z=A:GOTO 1290 
1340 IF INKEY(0)=0 THEN Z=MAX(Z-1,1):IF Z< 13025] 
A THEN A=A-25:B=B-25:Z=B:GOTO 1290 
1350 IF INKEY{2)>0 THEN Z=MIN(Z+25,N):IF Z (53091 
A=A+25:B=B+25:Z=A:GOTO 1290 
INKEY(0)>0 THEN Z=MAX(Z-25,1 ):IF Z [4550 ] 
A=A-25:B=B-25:Z=B:GOTO 1290 
1370 IF INKEY(47)=0 THEN S(Z)=1-S(Z):LOCAT [4658] 
E 23,Z-A+1:IF S(Z)=1 THEN PRINT"*"ELSE PRI 
NT" " 

1380 IF INKEY(79)>0 THEN C$ = "*.*": |ERA,@C$ [2016] 
:GOTO 100 

1390 IF INKEY{18)=0 OR INKEY(6)=0 THEN GOS [1886] 
UB 1420:GOTO 100 

1400 IF INKEY(58)=0 THEN CLS#1:INPUT#1,"ER [5180] 
A:",A$:GOSUB 1420:[ERA,@A$:GOTO 100 
1410 GOTO 1300 [438] 

1420 FOR Z=1 TO N:IF S(Z)=1 THEN C$=LEFT$( 132433 
F$(Z) ,12): 'ERA,@C$ 

1430 NEXT Z:RETURN [788] 

1440 IF INP(&F500)=90 THEN 200 [1157] 

1450 CLS#1:INPUT#1,"NR. :",T [1253] 

1460 INPUT#1/'TITEL;:",T$ [946] 

1470 FOR Z=N+1 TO 64:F$(Z)="":NEXT Z [1868] 

1480 PRINT #8 ,CHR$ (15); CHR$ ( 27 ).; "/R[2061] 
1490 PRINT# 8 ,STR$(T);") ";T$ ~ [1865] 

1500 PRINT# 8 , STRING? (60/'-") [1772] 

1510 IF us THEN PRINT# 8 ,USING"user ##";us [1986] 

1520 FOR Z=1 TO N STEP 4 [1472] 

1530 PRINT# 8 ,USING"\ \ \ [4687] 

\ \ \ \ \";F$( 

Z),F$(Z+1),F$(Z+2),F$(Z+3) 

1540 NEXT Z:PRINT# 8 :PRINT# 8 ,A$:PRINT# 8 :PRI [4890] 
NT# 8 :PRINT# 8 :PRINT# 8 :PRINT #8 

1550 PRINT#8,CHR$(18) (1094) 

1560 GOTO 200 [429] 

1570 IF INP(&F500)=90 THEN 200 [1157] 

1580 CLS#1:INPUT#1,"NR. :",T [1253] 

1590 INPUT#1/'TITEL.:",T$ [946] 

1600 FOR Z=N+1 TO 64:F$(Z)="":NEXT Z [1868] 

1610 PRINT#8,CHR$(15);CHR$(27); "x2 " [2061] 

1620 PRINT# 8 ,STR$(T);") ";T$ [1865] 

1630 PRINT#8,STRINGS(83,"-") [1521] 

1640 IF us THEN PRINT# 8 ,USING"user ##";us [1986] 

1650 FOR Z=1 TO N STEP 4 [1 472 ] 

1660 PRINT# 8 ,USING"\ \ \ [5722] 

\ \ \ 

\ \";F$(Z),FS(Z+1),F$(Z+2), 

FS(Z+3) 

1670 NEXT Z:PRINT# 8 :PRINT# 8 ,A$:PRINT# 8 :PRI [4890] 
NT# 8 :PRINT# 8 :PRINT# 8 :PRINT #8 

1680 PRINT#8,CHR$(18) [1094] 

1690 GOTO 200 [429] 

FOR P=£A000 TO &A012 [11221 

READ T$:POKE P,VAL("&"+T$) [872] 

NEXT P [364] 

CALL &A000 [637] 

RETURN [555] 

1750 DATA 21,A,A0,DF,7,A0,C9,D,C6,7,23,0,C [2275] 
8,0,1,1,A,0,3,0 

1760 C$=INKEY$:WHILE C$<>"":C$=INKEY$:WEND [2666] 

:RETURN 
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Fortsetzung von S. 23 


1. Das erste Byte eines jeden Direc¬ 
toryeintrags legt fest, auf welcher Be¬ 
nutzerebene sich das Programm be¬ 
findet. Ist der Wert dieses Bytes 00, so 
befindet sich das File auf der USER- 
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Danach sieht der Directorysektor wie in 
Abbildung 2 aus. 

In den beiden ersten 16 Zeichenreihen, 
findet Amsdos alle wichtigen Direc¬ 
toryinformationen über die Datei 
TEST.BAS. Was diese 32 Bytes genau 
bedeuten, wollen wir nun klären. 

Dabei läßt sich der Directoryeintrag in 
sechs Teile gliedern. Sehen Sie sich den 
Eintrag einmal in Abbildung 3 an. 


Die Zahlen der einzelnen Sektionen 
haben folgende Bedeutung: 


Nummer 0. Eine Sonderregelung fin¬ 
det hier bei dem Wert &E5 statt. Hat 
das erste Byte diesen Weil, so wurde 
es mit ERA gelöscht. 

2. Die nächsten acht Bytes &01-&08 ent¬ 
halten den Dateinamen, der maxi¬ 
mal acht Zeichen lang sein kann. 

3. In den Bytes &09-&0B befindet sich 
die Typenkennzeichnung des Files 
[BIN.BAS.BAK...]. 

Außerdem wird durch ein gesetztes Bit 7 
in den Bytes &09, &0A das Fileattribut 
angegeben. Dabei gilt Folgendes: 


Abbildung 4 
Byte &09: 

BYTE &0A 


BIT 7=0 PROGRAMM KANN GELÖSCHT WERDEN 
BIT 7=1 PROGRAMM IST READ ONLY UND KANN 
NICHT GELÖSCHT WERDEN 
BIT 7=0 PROGRAMM IST IM DIRECTORY SICHTBAR 
BIT 7=1 PROGRAMM IST EIN SYS FILE UND KANN 
NICHT IM DIRECTORY GELISTET WERDEN 


4. Das Byte &0C gibt eine Referenz zu 
den Bytes &10-&1F und kennzeichnet 

_den Extend. Ojf Ö^-S/c 1~3/n 

Tcjc't'-o nsci^o 

5. In dem Byte &0F wird die Länge des 
Programms angegeben. Dabei ent¬ 
spricht der Wert von &0F der Anzahl 
128 Bytes Records, die das Programm 
belegt. 

6. Die letzten 16 Bytes (&10-&1FJ sind für 
das Amsdos mit am interessantesten. 
Hier kann man nachlesen, auf 
welchemTrackund Sektor die einzel¬ 
nen Blöcke zu finden sind. Die 
Blöcke werden, wie anfangs erwähnt, 
durchnumeriert. Die 16 Ein-Byte- 
Zahlen geben also die Reihenfolge 
und Lage der 1 KB großen Pro¬ 
grammteile an. Den genauen Stand¬ 
ort eines Blocks auf der Diskette er¬ 
mittelt man durch die beiden folgen¬ 
den Formeln: 

TRACK = INT ((BLOCKNUMMER*2+19)/9) 
SEKTOR = (BLOCKNUMMER*2+18) MOD 9 

Da so ein Directoryeintrag nur 16 
Blocknummem halten kann, stellt sich 
natürlich die Frage, was passiert, wenn 
ein Programm größer ist als 16 * 1 KB. 
Das Amsdos bedient sich dabei einer 
recht genialen Lösung. Es setzt einfach 
den Wert des Bytes &0C (EXTEND) auf 
den Wert &80 und legt einen zweiten 
Directoryeintrag an. Findet der Con¬ 
troller beim Laden in der Directory das 
Byte &0C mit dem Wert &80 beschrie¬ 
ben, so sucht er sich, nachdem er 16 
Blöcke geladen hat, den nächsten 
gleichnamigen Directoryeintrag und 
lädt so lange weiter, bis er im Blockver¬ 
zeichnis (BAM-BLOCK ALLOCTA- 
TION MAP) den Wert 00 findet und 
hiermit das Ende der Datei erreicht 
ist. 

Damit wäre dann auch schon alles über 
die Directoryeinträge auf der Diskette 
gesagt. Woher das Programm nun weiß, 
wohin im Speicher ein Programm gela¬ 
den werden soll, erklärt sich bei der Ana¬ 
lyse des ersten Blocks der Datei, der 
die Header-Info enthält. 


Der Dateikopf 


Die erste Blocknummer unserer Test¬ 
datei hatte den Wert 02. Wir können 
nun mit unseren beiden Formeln die 
Position (TRACK 2./SEKTOR 4) er¬ 
rechnen. Nun müssen wir nur noch auf 
den. für System-Format typischen, Offset 
von &41 zum Sektor addieren und ge¬ 
ben ein: 

IREAD,0,2,&45 

IEXAMINE.0 

Das Bild 5 zeigt einen Ausdruck des Sek¬ 
tors. auf dem sich der Programmkopf 
von TEST.BAS sowie das eigentliche 
Programm befindet. 
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•TEST BAS... 
.P--a. 

-a. .1.E 

DIES IST EIN TE 
ST. ...E UM ZU 
SEHEN WIE DIE D 

ATEN. '.E D 

IES IST EIN TES 
T. ,.,E UM ZU S 
EHEN WIE DIE DA 
TEN.'...E AUF D 
ER DISKETTE ABG 
ELEGT WERDEN... 
•CR ..DEFM " 
FORMATTING...PL 
Eeeeeeeeeeeeeee 
eeeeeeeeeeeeeee 


Zunächst fällt einmal auf, daß in den 
Bytes &01-&0B wieder der Programm¬ 
name und die Kennung stehen. Da die¬ 
ser Name kaum etwas mit den abge¬ 
speicherten Daten zu tun hat, kann 
man davon ausgehen, daß sich hier in 
den ersten 128 Bytes der Record für den 
Programmkopf befindet. Tatsächlich 
wird das unter Amsdos auch so ge¬ 
halten. Das eigentliche Programm steht 
erst ab Byte &80 und dürfte für unsere 
Analyse uninteressant sein. 

Wesentlich wichtiger ist der Pro¬ 
grammkopf. in dem natürlich noch viel 
mehr Informationen als nur der Name 
des Programms stehen. 

Folgende Bytes machen dabei wichtige 
Aussagen über das Programm: 

BYTE &00 


USER NUMMER 

BYTE &01-&08 
PROGRAMMNAME 
BYTE &09-&0B 
KENNZEICHNUNG 

BYTE &13* 

ABGESPEICHERT ALS 

600 NORMALES SAVE 

601 GESCHÜTZT GE SAVE D 

602 BINÄR GESAVED 

BYTE &15-&16 

LADEADRESSE DES PROGRAMMS 
(IN UNSEREM FALL &0170- BASIC- 
ANFANG) 

BYTE &18-&19 

LÄNGE DES PROGRAMMS 


BYTE &1B-&1C 

EXECUTION ADRESSE BEI MC- 
PROGRAMMEN 

BYTE &40-&4I 

LÄNGE DES PROGRAMMS (WAR¬ 
UM EIGENTLICH ZWEIMAL ?) 

BYTE Ä43-&44 

CHECKSUMME 

Bis auf die zweite Angabe der Pro¬ 
grammlänge, deren Grund uns auch 
unbekannt ist, sowie die Checksumme, 
sollte es zu den Angaben eigentlich 
keine Fragen geben. 

Die Checksumme addiert die Bytes 
&00-&42 und überprüft sie mit dem 
Eintrag in &43-&44. Anhand dieser 
Summe kann das Programm feststel¬ 
len, ob eine Programmdatei oder ein 
ASCII-File vorliegt. ASCII-Files haben 
nämlich keinen Programmkopf und er¬ 
geben in diesem Fall einen Fehler. 

Die Daten in Record 2 des Sektors wer¬ 
den in ASCII-Darstellung abgelegt und 
sind für den Anwender, soweit keine 
Modifikationen am Programm vorge¬ 
nommen werden sollen, uninteressant. 
Wird das Programm jedoch mit SA- 
VE”NAME”,P abgespeichert, so wer¬ 
den nur die entsprechenden Token ab¬ 
gelegt, was ziemlich unübersichtlich 
wirkt. Ob der Ladevorgang abgeschlos¬ 
sen werden kann bzw. das Ende der Da¬ 
tei erreicht ist, erkennt der Rechner an 
einer Folge von 3-Null-Bytes. Alles, was 
sich weiterhin in den Records befindet, 
kann als Garbage bezeichnet werden 
und hat überhaupt keinen Einfluß auf 
das Programm. 

Zu den formattypischen Offsets, die'zur 
Sektomummer addiert werden müssen, 
sei noch gesagt, daß diese bei den ein¬ 
zelnen Formaten variieren und man die 
nachfolgende Tabelle als Grundlage 
zum Arbeiten benutzen kann. Bei exoti¬ 
schen Offsets hilft nur Probieren oder 
ein Sektor-Scanner. 

FORMAT STANDARD-OFFSET 


SYSTEM &41 

VENDOR &41 

DATA ON LY &C1 

IBM &01 

Ausgerüstet mit diesen wichtigen Infor¬ 
mationen über das Disk-Handling des 
Amsdos, sollten Sie eigentlich keine 
Schwierigkeiten mehr haben, sich auf 
Ihren Disketten zurechtzufinden, Mo¬ 
difikationen an Programmen vorzu¬ 
nehmen oder Disketten gegen uner¬ 
wünschtes Kopieren zu schützen. 

Probieren Sie das Ganze einmal mit 
Binär- oder ASCII-Dateien, sowie mit 
einem anderen Format. Sobald Sie ein 
wenig Übung im Umgang mit der doch 
recht simplen Diskettenorganisation 
haben, wird Ihnen Ihre DDI-1 gleich in 
einem ganz anderen Licht erscheinen. 

(TM) 
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Ein universelles Dateiverwaltungs- 
programm für den CPC 6128 


für 6128 




Mit UNIDAT können Sie jede denkbare Ansammlung von 
Daten komlortabel verwalten; von der Adressenverwaltung 
bis zur Zeitschriftensammlung. Der Menuepunkt ’Neue Datei 
erstellen' bietet die Möglichkeit, sich einen elektronischen 
Karteikasten maßzuschneidem, der genau den Anforderun¬ 
gen der gewünschten Datei entspricht. So „können pro Da¬ 
tensatz (=Karteikarte) bis zu 15 Felder (=Überschriften wie 
Name, Adresse’, 'PLZ' usw.) definiert werden, von welchen 
jedes wiederum 20 Zeichen lang sein darf. 

Damit das Programm abgedruckt werden konnte, mußten wir 
es relativ kurz halten. So wurde auf einige Sicherheitsabfra¬ 
gen verzichtet, damit der Komfort erhalten blieb. Es ist daher 
empfehlenswert, den Hinweisen während des Programmab¬ 
laufs zu folgen. Es muß auch darauf geachtet werden, daß 
der Dateiname zum Abspeichem einer Datei nicht länger als 
acht Zeichen ist, da sonst das Diskettenlaufwerk eine Fehler¬ 
meldung produziert. 

Bevor UNIDAT geladen werden kann, muß unbedingt der 
auf der Systemdiskette des 6128 vorhandene ’Bankman' gela¬ 
den und gestartet werden, weil die eingegebenen Daten 
während der Arbeit mit UNIDAT in der freien Speicher¬ 
bank des 6128 angelegt werden. UNIDAT fragt zur Sicherheit 
am Programmanfang noch einmal ab, ob der Bankmanager 
geladen wurde. 

Das Hauptmenue, das den Bediener durch sämtliche 
Funktionen führt, enthält zehn Auswahlmöglichkeiten, die 
nachstehend aufgeführt und erklärt sind: 

1. Daten eingeben: 

Hier wird gefragt, ob eine bestehende oder eine neue Datei be¬ 
arbeitet werden soll, Eine bestehende Datei wird nach An¬ 
gabe des Namens geladen, eine neue Datei wird nach den 
Wünschen des Bedieners erstellt. Anschließend können Da¬ 
ten neu eingegeben, verändert oder gelöscht werden. N ach der 
Arbeit kehrt man ins Hauptmenue zurück. Empfehlenswert 
ist, anschließend die Sortierroutine aufzurufen, welche die 
neuen Daten in die Datei einordnet. 

2. Daten lesen: 

Dieser Menuepunkt erlaubt ein sehr komfortables Blättern 
im 'Karteikasten. Es besteht die Möglichkeit, die Daten der 
Reihe nach anzusehen oder bestimmte Daten suchen zu las¬ 
sen, wobei auch die Eingabe eines Jokers (’?’) möglich ist; wird 
z.B. im Feld 'Name' nach ’M?’ gesucht, so findet UNIDAT 
'Meier, ’Meyer, ’Maier’ usw. Anschließend zurück ins 
Hauptmenue. 

3. Daten einiesen, 

4. Daten speichern: 

Dieses sind die beiden Diskoperationen im Zusammenhang 
mit der Dateiarbeit. 'Daten einlesen’ ermöglicht das Einladen 
einer aul Disk bestehenden Datei, wobei noch abgefragt wird,' 
ob die gerade bestehende Datei vorher gespeichert werden 
soll. Bei 'Daten speichern’ besteht die Möglichkeit, die einge¬ 
legte Diskette auf ausreichenden Speicherplatz zu überprü¬ 
fen, und eine auf Disk gespeicherte Datei zu ändern oder 
zu löschen. 

5. Daten ausdrucken: 

Die Druckroutine arbeitet mit Epson-kompatiblen Druckern 
und erlaubt zu Beginn die Auswahl einiger Schriftarten und 
die Formatierung des Ausdrucks. Man kann die ganze Datei 
oder eine anwählbare Teildatei als Listing oder Adressaufkle- 
ber ausdrucken lassen. Die Aufkleber lassen sich ein- oder 
zweispaltig bedrucken. 

6. Daten ordnen: 

Dieser Menuepunkt dient dazu, eine Datei oder neu einge¬ 
gebene Daten alphanumerisch zu sortieren. Hierzu wird das 
zu ordnende Feld abgefragt (Name. Adresse etc.). Anhand 
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1 * * * 


90 

* * * 



****** 


100 1 ************************************* 
****••• 

110 ' 

120 ' 

130 ' 

140 CLEARrMODE IrBORDER 1:INK 0,1:INK 1,26 
,1:INK 2,24:INK 3, 6 ,1:PAPER 0:PEN 2:SPEED 
INK 30,10 

150 PRINT CHR$(7);"Haben Sie das Programm 
PAPER 3:PEN 1:LOCATE 4,4:PRINT CHR$(7);" 
B A N K M A N PAPER 0:PEN 2:PRINT " 
eingelesen ?" 

160 PRINT .-PRINT: PRINT CHR$ (24 ) ; CHR$ ( 7 ) ; " W 
enn ja, beliebige Taste druecken. ";CHR$(2 
4) 

170 IF INKEY$="" THEN 170 

180 MODE 2 : BORDER 1.-INK 0,1: INK 1,26: PAPER 
0 :PEN 1 

190 DIM feld$(10),feldlen(10),a$(10),k1(10 
) ,k 2 ( 10 ),satznum (22 ) ,y$( 22 ) 

200 WINDOW 1,80,7,23:WINDOW#1,1,80,1,3:WIN 
DOW#2,1,80,25,25:PAPER#2,0:PEN#2,1:WINDOW# 
3,1 ,80,24,24: WINDOWS, 1 ,80,5,6 
210 ' 

220 ... 

230 '* PROGRAMMTITEL * 

240 ... 

250 ' 

260 DEF FNfrsatz=INT((64000/geslen>-hsatz) 
270 CLS#1:PRINT#1," ";STRING$(78,"*"):PRIN 
T#1," *•• CPC 6128 -DATEI 

";CHR$(164);" by G. TREUSCH Dez.1985 (V.1 
.1) * * *":PRINT#1," STRINGS(78,"*") 

280 LOCATE 35,1:PRINT CHR$(1 8 );CHR$(24);" 

. . ";CHR$(24);:LOCATE 1,1:PRINT CHR$( 

7);:INPUT " Bitte Datum eingeberi (TT.MM.JJ 
): ",datum$ 

290 IF datum$="" THEN 280 ELSE IF MID$(dat 
um$,3,1)<>"." OR MID$(datumS, 6 ,1)<>"." OR 
LEN(datum$)< >8 THEN LOCATE 1,3:PRINT" Datu 
m bitte korrekt eingeben ! ":GOTO 280 
300 ' 

310 ..... 

320 '* NEUE DATEI ERSTELLEN * 

330 '********«********»****** 

340 ' 

350 CLS:PRINT CHR$(24);" Neue DATEI anlege 
n (N), bestehende DATEI bearbeiten (B) ";C 
HR$(24):opt$="nb":GOSUB 4140:IF k=2 THEN 6 
20 

360 CLS:PRINT CHR$(24);" Welchen Titel sol 
1 die DATEI erhalten? (max. 34 Zeichen) 
CHR$(24):PRINT:PRINT">";SPACES(34);"<":LOC 
ATE 1 ,3:INPUT">",datei$:datei$=UPPER$(date 
i$):ldatei=LEN(datei$):IF ldatei<1 THEN 36 
0 

370 PRINT:PRINT CHR$(24);" Wieviele Felder 
soll ein Datensatz enthalten ? (max. 15) 

";CHR$(24);:INPUT" ",hfeld:IF hfeld<1 OR h 
feld >15 THEN 370 

380 PRINT:PRINT" Eingaben aendern (J/N)":o 
pt$ = "jn" .-GOSUB 41 40 : IF k = 1 THEN 360 
390 ERASE feld$,feldlen,a$,kl,k2:DIM feldS 
(hfeld),feldlen(hfeld),a$(hfeld) 

400 CLS:CLS#4:fetitl$="":fetit2$="":PRINT# 

4,CHR$(24);" FELDNAME (Max. 20 Zeichen] F 
ELDLAENGE [Min.2 (1 Feld),Max.255 (alle Fe 
lder)] ";CHR$(24) 

410 FOR i =1 TO hfeld:LOCATE 1,i:PRINT USIN 


[1760] 

[1 760 ] 

[51 ] 

[1008] 

[1653] 

[51 ] 

[1760] 

[1760] 

[117] 
1117] 
[117] 
[4691 ] 

[10280 1 


[5480] 

[574 ] 
[4127] 

15323 ] 

[5838] 


[117] 
[670 ] 
[1582] 
[670 ] 
[117] 
[3495] 
[81 10 ] 


17414 ] 


[10913] 


1117] 

[768] 

[773] 

1768] 

[117] 

[6003] 


[14634] 


[11671 ] 

[5080] 
[6084 ] 
[7733) 

[4826 ) 
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G"##";i ;:PRINT" >";CHR$(24); SPACE$(20);CH 
R$(24);"<";NEXT:PRINT CHR$(24) 

420 FOR i = 1 TO hfeld:LOCATE 5,i:INPUT"",fe 
ld$(i):IF feld$(i)="" THEN 420 ELSE IF LEN 
(feld$(i))>20 THEN feld$(i)=LEFT$(feld$(i) 
, 20 ) 

430 feld$(i)=UPPER$(feld$(i)):fetitl$=feti 
tl$+STR$(i)+"."+feld$(i):NEXT 
440 inaxlen=LEN( feld$(1 ) ):FOR i=2 TO hfeld: 
maxlen=MAX(maxlen,LEN(feld$(i))):NEXT:max 
len=maxlen+1:FOR i =1 TO hfeld:feld$(i)=fel 
d$(i)+SPACE$(maxien-LEN(feld$(i))):NEXT:PR 
INT CHR$(24) 

450 11=78-maxlen 

460 FOR i = 1 TO hfeldrLOCATE 36,i:PRINT"(Ma 
x."; 11 ;")" 

470 LOCATE 32,i:PRINT CHR$(32)CHR$(8);:INP 
UT"",feldlen(i) 

475 IF feldien(i)<2 THEN :GOTO 470 

480 geslen=geslen+feldlen(i)+ 1 :IF geslen<= 

255 THEN 510 

490 LOCATE 32,i:PRINT CHR$(7);"Maximallaen 
ge (255) ueberschritten 1":pause=2000:GOSU 
B 3920 

500 FOR i=1 TO hfeldrLOCATE 32,i:PRINT CHP 
$(18):NEXT: geslen=0:GOTO 460 
510 NEXT i:geslen=geslen-1 

520 fetit2$=" ":FOR i=1 TO hfeld:IF i<1 

0 THEN x=1 ELSE x=2 

530 fetit2$=fetit2$+STR$(i)+SPACE$(feldien 
(i)-x):NEXT 

540 PRINT:PRINT" Eingaben aendern (J/N) 

11 ;CHR$ (24 ); FNfrsatz ; " freie Datensa 
etze ";CHR$(24);:opt$="jn":GOSUB 4140:IF k 
=1 THEN geslen=0:GOTO 400 
550 GOSUB 560:GOTO 950 

560 CLS #4:CLS:PRINT CHR$(24);" Welchen Nam 
en soll die DATEI erhalten? ";CHR$(24):LOC 
ATE 42,1:INPUT"",file$:file$=LEFT$(file$,8 
):file2$=file$+".str":file3$=file$+".dat": 
file4$=file$+".dru":RETURN 
570 ' 

580 '****************** 

590 '* DATEN EINLESEN * 

600 '*****»**»********* 

610 ' 

620 CLS:PRINT CHR$<24);CHR$(7);" Bitte geb 
en Sie das aktuelle Laufwerk ein (A/B) ";C 
HR$(24):opt$="ab"rGOSUB 4140:IF k=1 THEN 1 
w$="A" ELSE lw$="B" 

630 !DRIVE,lw$ 

640 CLS:PRINT CHR$(7);CHR$(24);" Welche DA 
TEI moechten Sie bearbeiten ? ";CHR$(24):L 
OCATE 42,1:INPUT"",file$:file$=LEFT$(file$ 

, 8 ): file 2 $ = file$ + ".str":file3$ = file$+".dat 
":file4$=file$+".dru" 

650 GOSUB 710 :GOTO 950 
660 ' 

670 

680 ' * DATEISTRUKTUR EINLESEN * 

690 '*•«*********»**»**»»**»«•* 

700 ' 

710 ON ERROR GOTO 730 

720 CLS:PRINT CHR$(24);" DATEN werden eing 

elesen, Moment bitte.";CHR$(24):OPENIN 

file2$:GOTO 740 

730 pause=3000rGOSUB 3920:RESUME 620 
740 ERASE feld$,feldlen,a$,k1,k2:geslen»0: 
INPUT#9,hsatz,hfeld,datei$,maxien,fetitl$, 
fetit 2 $:ldatei=LEN(datei$) 

750 DIM feld$(hfeld),feldlen(hfeld),a$(hfe 
ld> 

760 FOR i =1 TO hfeldrINPUT #9,feld$(i),fel 
dlen(i):geslen=geslen+feldlen(i) + 1 :NEXT i: 
geslen=geslen-1rCLOSEIN 
770 |BANKOPEN,geslen:OPENIN file3$ 

780 ' 

790 

800 '* DATENSAETZE EINLESEN * 

810 1 **•••*•••****••***••**•* 

820 ' 

830 r%=1:FOR i=1 TO hsatz:INPUT09,satz$:LO 
CATE 46,1:PRINT i 

840 b$=STRING$(geslen," "):b$=satz$:IBANKW 

RITE,@r%,b$,i 

850 NEXT irCLOSEIN 

860 * 

g70 ' *«**•****•*••*•**•*,«»**•••••,, 


(7895) 

(4970 1 
( 11112 ) 


(1816) 

(3808) 

(4029) 

[1828] 

(3406) 

(6161 ] 


(23091 

(1412) 

(4683) 

(5117) 

(11137) 


[981 ) 
1127971 


[117] 
(659) 
(722) 
(659) 
[117] 
(9405 ) 


[1 484 ] 
[1 1968] 


[873] 

(1171 

[978] 

[1250] 

1978) 

[117] 

[1339] 

[5244] 


(29261 
(9021 ] 


(3563] 

(6447] 


(2817] 

[117] 

[768] 

[2233] 

[768] 

[117] 

[5140 1 

[4593 1 

[ 1222 ] 

[117] 

[1223) 
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dieses Feldes wird dann entweder die ganze Datei oder ein 
wählbarer Ausschnitt der Datei auf- oder abwärts (ebenfalls 
wählbar) sortiert. 

7. Programm beenden: 

Dies ist der Ausstieg aus UNIDAT. Bevor jedoch das Pro¬ 
gramm beendet wird (und bei einem erneuten ’run' die Variab- || 
len gelöscht wären), wird abgefragt, ob die bestehende Datei 
abgespeichert werden soll. 

8. Dateistruktur anzeigen: 

Die Namen und Längen der benutzten Felder der aktuellen 
Datei werden ausgegeben, zusätzlich werden Informationen 
über die Anzahl der gespeicherten und noch freien Da¬ 
tensätze gegeben. 

9. Anderes Programm starten: 

Diese Option hat eine ähnliche Funktion wie Menuepunkt 7, 
zusätzlich wird die Möglichkeit geboten, nach Abspeichern 
der bearbeiteten Daten und Ausstieg aus UNIDAT, ein an¬ 
deres Programm zu starten. 

10. Disk-Katalog: 

Hier kann jederzeit durch Tastendruck der CAT-Befehl aus¬ 
geführt werden, welcher über die auf der Arbeitsdiskette ge¬ 
speicherten Dateien oder den noch verfügbaren Speicher¬ 
platz informiert. 

Während der Arbeit mit UNIDAT wird der Benutzerin einer 
Kopfzeile ständig über den Namen und den Filenamen der 
gerade bearbeiteten Datei informiert. Beim Sprung vom 
Hauptmenue in ein Unterprogramm, erscheint der Name der 
aktuellen Funktion ebenfalls in der Kopfzeile. 

Hier noch ein Tip zum Eintippen längerer Programme: 

Speichern Sie in gewissen Zeitabständen Ihr Teilprogramm 
ab, um bei einem eventuellen Absturz oder Netzausfall nicht 
Stunden umsonst vor dem Bildschirm gesessen zu haben. 

Auch sollten Sic stets abspeichern, bevor Sie das Programm 
mit ’run' starten; unscheinbare Tippfehler können zum Ver¬ 
lust des Programms führen und Sie im Laufe der Zeit um Ihre 
Haarpracht bringen. #1 
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880 '* DRUCKEREINSTELLUNG EINLESEN * 

890 
900 ' 

910 ON ERROR GOTO 930 

920 OPENIN file4$:INPUT#9,zeiab$,zeil,leer 
zei,schrift$,Schrift,kompr:CLOSEIN:r %=0:RE 
TURN 

930 CLOSEIN:RETURN 

940 LOCATE#1,1,2:PRINT#1," *** CPC 6128 - 
DATEI = ";datei$+SPACE$(36-ldatei);"File= 
";UPPER$(file$);SPACES(9-LEN(file$));"*** 
RETURN 

950 |BANKOPEN,geslen:DIM kl(hsatz),k2(hsat 
z) 

960 ' 

970 •••**«****•*•** 

980 '* HAUPTMENUE * 

990 i.............. 

1000 ' 

1010 GOSUB 940: PAPER 0:PEN 1:CLS:PAPER#3, 
0:CLS # 3:PAPER #4,0:PEN #4,1:CLS#4:CLS#2 
1020 LOCATE 26,1:PRINT"=================== 

======":LOCATE 26,2:PRINT"= H A U P T M E 

N U E =":LOCATE 26,3:PRINT"============= 

1030 ON BREAK CONT:ON ERROR GOTO 3550 
1040 DATA 1. DATEN eingeben,2. DATEN lesen 
,3. DATEN abspeichern,4. DATEN einiesen,5. 
DATEN ausdrucken,6. DATEN ordnen,7. PROGR 
AMM beenden,8. DATEISTRUKTUR anzeigen,9. a 
nderes PROGRAMM starten,C. Disk-Katalog 
1050 RESTORE 1040:FOR i=1 TO 10:READ menue 
$ (i) 

1060 LOCATE 26,i+4:PRINT menue$(i):NEXT 

1070 LOCATE 29,i+5:PRINT "Bitte waehlen :" 

:opt$="123456789C":GOSUB 4140 

1080 CLS:LOCATE#1,24,2:PRINT#1,SPC(36):LOC 

ATE#1,28,2:PRINT#1,menue${k):ON k GOTO 159 

0,1710,2550,1280,2970,2820,1210,1470,1100, 

1350 

1090 ' 

1100 '*•**.***..*»«***..*****.**** 

1110 '* ANDERES PROGRAMM STARTEN * 

1120 ... 

1130 ' 

1140 CLS:LOCATE 20,8:PRINT CHR$(7);CHR$(24 
);" Haben Sie die Daten gesichert ? (J/N) 

";CHR$(24):opt$="jn":GOSUB 4140:IF k=2 THE 
N 1010 

1150 CLS:CAT:PRINT CHR$(24);" Zurueck zum 
Hauptmenue [01 ";CHR$(24);:INPUT" welches 
Programm moechten Sie starten?: ",ru$:IF r 
u$="0" THEN 1010 ELSE RUN ru$ 

1160 ' 

1170 '»•»*»**•»*•***•»**** 

1180 '* PROGRAMM BEENDEN * 

1190 '**»***************** 

1200 1 

1210 LOCATE 6,8:PRINT CHR$(7);"P R O G R A 
M M - E N D E ";CHR$(24);" haben Sie die 
Daten gesichert ? ";CHR${24);" (j/N)":opt$ 
= "jn":GOSUB 4140:ON k GOTO 1220,1010 
1220 r%=0:FOR i=0 TO hsatz:b$="":1BANKWRIT 
E,@r%,b$,i:NEXT:MODE 2:END 
1230 ' 

1240 '************•**•** 

1250 '* DATEN EINLESEN * 

1260 '****************** 

1270 ’ 

1280 LOCATE 6,8:PRINT CHR$(7);" DATEI 
loeschen ”;CHR$(24 );" haben Sie 
die Daten gesichert ? ";CHR$(24);" (J/N)": 
opt$="jn":GOSUB 4140:ON k GOTO 1290,1010 
1290 r%=0:FOR i=0 TO hsatz:b$="":iBANKWRIT 
E,@r%,b$,i:NEXT:GOSUB 620:GOTO 1010 
1300 ' 

1310 '**•*•**»****••** 

1320 ' * DISC-KATALOG * 

1330 .*.*.*...,***,**. 

1340 ’ 

1350 GOSUB 1360:GOTO 1010 

1360 CLS:CLS#2:CAT:PRINT#2,CHR$(24);" Moec 
hten Sie eine Datei A)endern, L)oeschen od 
er W)eiter ";CHR$(24):opt$="alw":GOSUB 414 
0:ON k GOTO 1370,1400,1410 
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1370 CLS#2:PRINT#2,"|REN,"+CHR$(34)+"(neue 
r Name)=";:P£INT#2,CHR$(24);SPACE$(8)+"."+ 
SPACE$(3):LOCATE#2,20,1:INPUT#2,"",neu$ 
1380 LOCATE#2,33,1:PRINT#2,CHR$(24);",(alt 
er Name)=";CHR$(24 >;SPACES (8 ) + "."+SPACES(3 
):LOCATE#2,47,1:INPUT#2,"",alt$ 

1390 IREN,neu$,alt$:PRINT#2,CHR$(24);:GOTO 
1360 

1400 CLS#2:PRINT#2,"|ERA,"+CHR$(34);:INPUT 
#2,"",x$:!ERA,x$:GOTO 1360 
1410 CLS # 2:RETURN 
1420 ' 

1430 '•**************** 

1440 '* DATEISTRUKTUR * 

1450 ... 

1460 ' 

1470 satzlen=0:CLS:PRINT#4," Gespeicherte 
Datensaetze= hsatz;" Freie Datensaetze 
= ";FNfrsatz; 

1480 PRINT#4," Datum ";datum$ 

1490 ZONE 40:PRINT#4,CHR$(24)Feldname 
:","Feldlaenge: ";CHR$(24) 

1500 FOR i=1 TO hfeld:LOCATE 1,i:PRINT i;f 
eld$ (i):LOCATE 42,i:PRINT USING"##";feldle 
n(i):satzlen=satzlen+feldlen(i):NEXT 

1510 LOCATE 42,i:PRINT" ":LOCATE 29,i+1: 

PRINT"Satzlaenge= ";:PRINT USING"###";satz 
len;:PRINT" +";hfeld-1 

1520 PRINT#2," Beliebige Taste druecken" 
1530 IF INKEY$="" THEN 1530 ELSE CLS#2:GOT 
O 1010 
1540 ' 

1550 '****************** 

1560 '* DATEN EINGEBEN * 

1570 '**«*************** 

1580 ' 

1590 CLS#2:PRINT#2," Eingabe mit 

[!] beenden" 

1600 hsatz=hsatz+ 1 :r%=hsatz:satz=hsatz 
1610 GOSUB 3750 

1620 IF c$ = "l" THEN hsatz=hsatz-1 .-PRINT CH 
R${24):LOCATE 40,1:PRINT FNfrsatz;" Datens 
aetze frei":GOTO 1640 
1630 GOTO 1590 

1640 CLS#2:PRINT#2," W)eitere Einga 

ben A)enderungen E)nde der Eingabe": 
opt$="wae":GOSUB 4140:ON k GOTO 1590,1650, 
1010 

1650 GOSUB 3980:LOCATE 40,1:PRINT FNfrsatz 
;" Datensaetze frei":GOTO 1640 
1660 ' 

1670 '***********»*»* 

1680 '* DATEN LESEN * 

1690 •*******...*»»** 

1700 ' 

1710 IF hsatz>0 THEN 1730 
1720 CLS:LOCATE 20, 8 :PRINT CHR$(7);CHR$(24 
);" KEINE DATEN GESPEIC 
H E R T ";CHR$(24):pause=2000:GOSUB 3920:G 
OTO 1010 

1730 DATA 1. Datensaetze nach Nummern anze 

igen,2. Datensaetze nach Kriterium suchen, 

3. zurueck zum Hauptmenue 

1740 RESTORE 1730:FOR i=1 TO 3:READ leseS: 

LOCATE 26,2+(i*2):PRINT leseS:NEXT 

1750 opt$ = "123":CLEAR INPUT:GOSUB 4140:CLS 

:ON k GOTO 1760,2170,1010 

1760 CLS:PRINT" Datensaetze nach Nummern 

anzeigen ":PRINT:PRINT" 1. alle Datensetze 

":PRINT:PRINT" 2. eine bestimmte Datensatz 

-Nr.":PRINT:PRINT" 3. zurueck zum Hauptmen 

ue" 

1770 opt$="123":CLEAR INPUT:GOSUB 4140:le= 
k:ON le GOTO 1950,1830,1010 
1780 ' 

1790 

1800 '* NACH NUMMERN LESEN • 

1810 
1820 ' 

1830 CLS#2:PRINT#2,CHR$(7):INPUT#2," Welch 
e Datensatz Nr. moechten Sie lesen? : ",sa 
tz:IF satz<1 OR satz>hsatz THEN 1830 
1840 CLS:PAPER#4,0:CLS#4:GOSUB 3760 
1850 LOCATE 2,1:PRINT"Datensatz-Nr.: ";sat 
z;" ":r%=satz: IBANKREAD,@r%,b$,satz 

1860 PRINT CHR${24);:LOCATE maxlen+2,3:a$( 

1 ) =MID$ (b$, 1 ,feldlend )):PRINT a$(1 ) 

1870 le=0:FOR zei=2 TO hfeld:le=le+feldlen 
(zei-1):LOCATE maxlen+2,zei + 2:a$(zei)=MID$ 
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(b$,le+zei,feldlen(zei)):PRINT a$(zei):NEX 
T:PRINT CHR$(24 ) ; 

1880 PRINT#2," ";CHR$(240);CHR$(241);")Bla 
ettern S)uchen Ajendern E)nde":opt$= 
CHR$(240)+CHR$(241)+"sae":GOSUB. 4140:ON k 
GOTO 1890,1910,1940,1930,1010 
1890 satz=satz+1:IF satz>hsatz THEN satz=1 
1900 GOTO 1850 

1910 satz=satz-1:IF satz<1 THEN satz=hsatz 
1920 GOTO 1850 

1930 GOSUB 3980:LOCATE 40,1:PRINT FNfrsatz 
Datensaetze frei":GOTO 1850 
1940 CLS#2:PRINT#2,CHR$( 7); " 1. Nummer suc 
hen 2. Kriterium suchen":opt$="12":GOS 
UB 4140:ON k GOTO 1830,2170 
1950 satz=0:ze=0:po=1:CLS:PAPER#4,1:PEN#4, 
0:CLS#4:PRINT#4,MID$(fetitl$,po,79):PRINT# 
4,MID$(fetit2$,po,79) 

1960 WHILE ze<17:satz=satz+1:r%=satz:ze=ze 
+1:IF satz>hsatz THEN 2000 
1970 |BANKREAD,@r%,b$,satz 

1980 PRINT USING"####";satz;:PRINT " ";LOW 
ER$(MID$(b$,po,74)) 

1990 WEND 

2000 PRINT#2," ";CHR$(240);")Weiter ";CHR 
$(242);")nach Links ";CHR$(243);")nach Re 
chts A)aendern Sjuchen E)beenden" 

201 0 opt$=CHR$(240)+CHR$(242)+CHR$(243)+"a 
se": GOSUB 4140.-ON k GOTO 2020,2040,2070,21 
00,1940,1010 

2020 ze=0:satz=satz-1:IF satz<0 THEN satz= 
0 ELSE IF satz+1>hsatz THEN 2110 
2030 CLS:CLS # 2 : :GOTO 1960 
2040 satz=satz-ze:IF satz<0 THEN satz=0 
2050 ze=0:po=po+40:IF po>geslen THEN po=1 
2060 CLS:CLS#2:CLS #4:PRINT#4,MID$(fetitl $, 
po,79):PRINT#4,MID$(fetit2$,po,79):GOTO 1 9 
60 

2070 satz=satz-ze:IF satz<0 THEN satz=0 
2080 ze=0:po=po-40:IF po<1 THEN po=1 
2090 CLS:CLS#2:CLS#4:PRINT#4,MID$(fetitl$, 
po,79):PRINT#4,MID$(fetit2$,po,79):GOTO 1 9 
60 

2100 GOSUB 3980:GOTO 2000 

2110 CLS#2:PRINT#2:PRINT#2,CHR$(7);" 

";CHR$(24 ); " DATEIENDE";CH 
R$(24 );:pause=2000:GOSUB 3920:GOTO 1010 
2120 ' 

2130 '»•*»*****»****».*****♦*. 

2140 '* NACH KRITERIUM LESEN * 

2150 '**»*****•********«***«** 

2160 ' 

2170 CLS:CLS#2:PAPER#4,0:PEN#4,1:CLS#4:PRI 
NT CHR$(24);" Feldbezeichnung ":PRINT CHR$ 
(24) 

2180 ZONE 26:FOR i = 1 TO hfeld:PRINT USING" 

##";i;:PRINT ";feld$(i),:NEXT 

2190 LOCATE 17,13:PRINT CHR$(18);CHR$(7);C 

HR$(24);:INPUT" In welchem Feld moechten S 

ie DATEN suchen? Nr. ",feld:IF feld<1 OR f 

eld >hfeld THEN 2190 

2200 GOSUB 2210:GOTO 2240 

2210 x=0:IF feld=1 THEN 2230 

2220 FOR i=2 TO feld:x=x+feldlen(i-1):NEXT 

2230 x=x+feld:RETURN 

2240 r%=1:LOCATE 17,13:PRINT CHR$(7);" 


Bitte SUCH-KRITERIUM eingeben 
CHR$(24):PRINT:PRINT " ";feld$(feld) 

[9179] :LOCATE 23,15:PRINT"(als Universalzeichen 

kann {?] eingegeben werden)" 

2250 PRINT:PRINT " >";CHR${24);SPACES(feld [3705] 
len(feld));CHR$(24);"<" 

[3617] 2260 LOCATE 3,17:INPUT"",su$:IF su$="" THE [8186] 

[337] N 1010 ELSE IF LEN(su$)>feldlen(feld) THEN 
[3316] su$=LEFT$(su$,feldlen(feld )) 

[337] 2270 FOR y =1 TO LEN(su$):IF MID$<su$,y,1)= [5376] 

[4824] "?" THEN MID$(su$,y,1)=CHR$(0 ) 

2280 NEXT [350] 

[7576] 2290 su$=STRING$(x-1,0)+su$ [2098] 

2300 ze=0:po=1:CLS:PAPER#4,1:PEN#4,0:CLS#4 [6508] 

:PRINT#4,MID$(fetitl$,po,79):PRINT#4,MID$( 

[8428] fetit2$,po,79) 

2310 iBANKFIND,@r%,LOWER$(su$),r%:IBANKREA [43031 
D,@r%,b$ 

[4790] 2320 IF r%<0 OR r%>hsatz THEN 2360 [1399] 

2330 ze=ze+1:IF ze=18 THEN 2370 ELSE j=ze [2400] 
[20381 2340 PRINT USING"####";r%;:PRINT " ",-LOWER [6246] 

[32551 $(MID$(b$,po,74)):satznum(ze)=r%:y$(ze)=b$ 

2350 r%=r%+1:GOTO 2310 [15863 

[390] 2360 PRINT#2,CHR$(7);" Suchkriterium: ";CH [7765] 

[8043] R$(24 );" ";LOWER$(su$);" ";CHR$(24);" nich 

t weiter vorhanden ! ":pause= 3000:GOSUB 3 
920 

[5610] 2370 PRINT#2," ";CHR$(240);")Weiter ";CHR [8043] 

$(242);")nach Links ";CHR$(243);")nach Re 
chts A)aendern S)uchen E)beenden" 

[5381] 2380 opt$=CHR$(240)+CHR$(242)+CHR$(243)+"a [4929) 

se":GOSUB 4140:ON k GOTO 2390,2460,2420,24 
[776] 10,1940,1010 

[2945] 2390 CLS#2:ze = 0:r%=r%-1 :IF r%<0 OR r%>hsat 13948] 

[2806] z THEN 2110 

[3843] 2400 CLS:GOTO 2310 [1044] 

2410 GOSUB 3980:GOTO 2370 [1620] 

2420 ' [117] 

[2945] 2430 ze=0:po=po-40:IF po<1 THEN po=1 [2425) 

[24251 2440 CLS#4:PRINT#4,MID$(fetitl$,po,79):PRI [3832] 

[38431 NT#4,MID$(fetit2$,po,79) 

2450 CLS:CLS#2:FOR i = 1 TO j:PRINT USING"## [5393] 
##";satznum(i);:PRINT " ";LOWER$(MID$(y$(i 
[1558] ),po,74)):NEXT:GOTO 2370 

[6632] 2460 ' [117] 

2470 po=po+40;IF po>geslen THEN po=1 [1864] 

2480 CLS#4:PRINT#4,MID$(fetitl$,po,79):PRI [3832] 

[117] NT#4,MID$(fetit2$,po,79) 

[768] 2490 CLS:CLS#2:FOR i=1 TO j:PRINT USING"## [5393] 

[1058] ##";satznum(i);:PRINT " ";LOWER$(MID$(y$(i 

[768] ),po,74)):NEXT:GOTO 2370 

[117] 2500 ' [117] 

[7214] 2510 ******************** [669] 

2520 '* DATEN SPEICHERN * [1890] 

2530 «**•*****•*•*••*»*** [669] 

[3941] 2540 ' [117] 

2550 CLS:PRINT CHR$(24);CHR$(7);" DATEN ab [7489] 

[11066] speichern (J/N) ";CHR$(24):opt$="jn":GOSUB 
4140:IF k=2 THEN 1010 

2560 CLS:PRINT CHR$(24);CHR$(7);" Bitte ge [9405] 
ben Sie das aktuelle Laufwerk ein (A/B) 

[1582] CHR$(24):opt$="ab":GOSUB 4140:IF k=1 THEN 
[2461] lw$="A" ELSE lw$="B" 

[3898] 2570 [DRIVE,lw$ [1484] 

[1540) 2580 CLS:PRINT CHR$(24);CHR$(7)Moechte [10717] 

[13334] n Sie die Diskette auf freien Speicherplat 
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Programmiersprache COMAL 

Pascal zu kompliziert? Basic zu langsam? Logo unzureichend? 
Warum nicht gleich C0MAL-80 

Diese Sprache ist strukturiert, schnell, hat über 400 Befehle und nutzt die Möglichkeiten 
Ihres Computers optimal. Auch Computerneulinge können schon nach 14 Tagen fließend 
programmieren. 

COMAL-80 wird in verschiedenen Bundesländern für den Schulunterricht empfohlen 
und vielfach in Universitäten eingesetzt: 

Jetzt auch für Schneider Computer (alle Typen! 

Diskette C0MAL-80 Version 1.82 mit Handbuch DM 69— 

COMAL-80 Modul in Vorbereitung 

C0MAL6RUPPE-DEUTSCHLAND 

Fa. D. Balz, 2270 Utarsum/Führ, Tel.: 04683/500 Modem 554 


PREISKNUUER - EINMALIG!! 

• JOYCE dm 2.099 — 

• JOYCE mit eingebautem 2. Laufwerk 1 MB dm 2.699 — 

• 2. Laufwerk 1 MB für JOYCE dm 599 — 

• 3”-Disketten 250 KB lOStck. dm 109 — 


• 3 r -Disketten 1 MB 

5 Stck. dm 99,— 

Preis inkl. MwSt., Lieferung ab Lager. 

G + W Electronic GmbH 

Tel.:07071-66022 

Hartmeyerstraße 50 

7400 Tübingen 
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z ueberpruefen (J/N) ";CHR$(24):opt$="jn": 
GOSUB 4140:IF k=1 THEN GOSUB 1360 
2590 CLS:PRINT CHR$(24);CHR$(7);" Moechten 
Sie den Dateinamen aendern (J/N) ";CHR$(2 
4):opt$="jn":GOSUB 4140:IF k=1 THEN GOSUB 
560 

2600 ' 

2610 . 

2620 '* DATEISTRUKTUR SPEICHERN » 

2630 ' *************************** 

2640 ' 

2650 CLS:PRINT CHR$(24);" DATEN werden ges 

peichert, Moment bitte. ";CHR$(24):OPE 

NOUT file2$ 

2660 WRITE#9,hsatz,hfeld,datei$»maxien,fet 
itl $,fetit 2 $ 

2670 FOR i =1 TO hfeld:WRITE#9,feld$(i),fei 
dien{i):NEXT:CLOSEOUT 
2680 ' 

2690 '»******.**.**...*.*.**•** 

2700 '* DATENSAETZE SPEICHERN * 

2710 
2720 ' 

2730 OPENOUT file3$ 

2740 r%= 1 :FOR i =1 TO hsatz:IBANKREAD,@r%,b 
$,i:satz$=STRING$(geslen," "):satz$=b$:LOC 
ATE 46,1:PRINT i 
2750 WRITE#9,satz$ 

2760 NEXT i:CLOSEOUT:r%=0:GOTO 1010 

2780 ... 

2790 '* DATEN ORDNEN * 

2800 '....«»mm...... 

2810 ' 

2820 IF hsatz=0 THEN 1720 

2830 CLS:CLS#2:ZONE 26:FOR i=1 TO hfeld:PR 
INT USING"##";i;:PRINT ";feld$(i),:NEXT 
2840 LOCATE 17,15:PRINT CHR$(7 ) ;CHR$(24);" 

Welches Feld moechten Sie ordnen ? Nr.: " 
;CHR${24):LOCATE 60,15:PAPER 0:PEN 1:INPUT 
"",feld:IF feld<1 OR feld>hfeld THEN 2840 
2850 GOSUB 2210:l=feldlen(feld) 

2860 PRINT:PRINT CHR$(24);" 1. gesamte D 

ATEI ordnen, 2. Teil der DATEI ordnen ": 
opt$="12":GOSUB 4140:IF k=1 THEN 2880 
2870 GOSUB 3640:f=lnum:g=hnum:GOTO 2890 
2880 f= 1 :g=hsatz 

2890 CLS#2:PRINT#2,CHR$(24);" 1 . aufwaerts 
ordnen 2. abwaerts ordnen ";CHR$(24):op 
t$="12":GOSUB 4140:sort=k 
2900 CLS#2:PRINT#2,CHR$(24 ) ; " 0 R D N U N 
G laeuft, bitte warten... ”;CHR$(24) 

2910 PRINT CHR$(7);:GOSUB 4220:PRINT CHR$( 
7);CHR$(24);:GOTO 1010 
2930 '•**■•**************** 

2940 '* DATEN AUSDRUCKEN * 

2950 •**•*******.».**..«». 

2960 ' 

2970 IF hsatz=0 THEN 1720 

2980 CLS:PRINT CHR$(7);CHR$(24);" Daten au 
sdrucken (J/N) ";CHR$(24):opt$="jn":GOSUB 
4140:IF k=2 THEN 1010 

2990 CLS:PRINT CHR$(7);CHR$(24);" Moechten 
Sie die Druckereinstellung aendern (J/N) 

";CHR$(24):opt$ = "jn":GOSUB 4140:IF k =1 THE 
N GOSUB 4580 

3000 CLS:PRINT CHR$(7);CHR$(24);" Bitte Dr 
ucker einschalten und beliebige Taste drue 
cken ";CHR$(24) 

3010 IF INKEY$="" THEN 3010 

3020 PRINT08,CHR$(27);zeiab$;CHR$(27);"C"; 

CHR$(zeil);CHR$(27);"N";CHR$(leerzei);CHR$ 

(27 ) ; schrif t$ ;CIIR$ (27 ); "W" ;CHR$ ( schritt) ;C 
HR$(27);CHR$(kompr); 

3030 CLSrPRINT" 1. Datensaetze ausdrucken" 

:PRINT:PRINT" 2. Adressenaufkleber ausdruc 
ken":PRINT:PRINT" 3. zurueck zum Hauptmenu 

3040 opt$="123":GOSUB 4140:ON k GOTO 3050, 
3280,1010 

3050 CLS:PRINT CHR$(24);" A)lle Datensaetz 
e ausdrucken N)ach Nummern ausdrucken ";C 
HR$(24);opt$="an":GOSUB 4140:IF k=1 THEN 3 
070 

3060 GOSUB 3640:CLS:PRINT CHR$(24);" Mocht 
en Sie den Kopf mit ausdrucken (J/N) ";CHR 
$(24):opt$ = "jn":GOSUB 4140:köpf=k:GOTO 308 
0 

3070 köpf=1:lnum=1:hnum=hsatz 

3080 CLS:PRINT CHR$(24);" Soll nach jedem 


[8396] 


[117] 
[1051 ] 
[1588 ] 
(1051 ] 
[117] 
[4665] 


[3590] 

[5534] 

[117] 
[894] 
[3102 ] 
[894 ] 
[117] 
[1382] 
[8473 ] 


[1684 ] 
[1625 ] 
[528] 
[987] 
[528] 
[117] 
[2441 ] 
[5288 ] 

[10564 ] 


11730 ] 
[8235 ] 


[2663] 
[1628] 
18211 ] 


[4669] 

[2162] 

[665] 

[819] 

[665] 

[117] 

[2441 ] 

[5494] 


[9029] 


[7868 ] 


[798] 

[1 1298] 


[10504 ] 


[2918 ] 
[9362 ] 


[8978] 


[1261 ] 
[1 1 060 ] 


Datensatz eine Leerzeile gedruckt werden ( 
J/N) ";CHR$(24):opt$="jn":GOSUB 4140:leer= 
k 

3090 IF köpf=2 THEN 3160 
3100 IF kompr=15 AND (geslen+5)<=132 THEN 
br=geslen+5 ELSE IF kompr=15 AND (geslen+5 
)>132 THEN br=132 

3110 IF kompr=18 AND (geslen+5)<=80 THEN b 
r=geslen+5 ELSE IF kompr=18 AND (geslen+5) 
>80 THEN br=80 

3120 PRINT#8,CHR$(27);"D";CHR$(br-15);CHR$ 
( 0 ) ; 

3130 PRINT#8,CHR$(27);"G";STRING$(br,"*") 
3140 PRINT#8,CHR$(27);"W";CHR$(1);CHR$(27) 

; ;CHR$(1);datei$;CHR$(27);;CHR$(0);C 
HR$(27);"W";CHR$(0);CHR$(9);"Stand: ";datu 
m$ 

3150 PRINT# 8 :PRINT# 8 ,fetitl$:PRINT# 8 ,fetit 
2$:PRINT# 8 ,STRING$(br,"*" ) ;CHR$(27) ;"H":PR 
INT #8 

3160 CLS:FOR i=lnum TO hnum:r%=i 
3170 |BANKREAD,@r%,b$,i 
3180 PRINT b$ 

3190 PRINT# 8 ,USING"####";i;:PRINT# 8 ," ";UP 
PER$(b$) 

3200 IF leer=2 THEN 3220 
3210 PRINT# 8 ,STRING$(br,) 

3220 NEXT i:GOTO 1010 

3240 1 ***************************** 

3250 '* ADRESSENAUFKLEBER DRUCKEN * 

3260 '****«•***«»****»*•******••,„• 

3280 PRINTE ,CHRS ( 27 ); "O" ;CHR$ ( 27 ); "P";CHR 
$(18); 

3290 CLS .-PRINT CHR$(24);" Feldbeze 
i c h n u n g CHR$(24):PRINT:ZONE 26:FOR 
i=1 TO hfeld:PRINT USING"##";i;:PRINT 
";feld$(i),:NEXT 

3300 LOCATE 10,11:PRINT CHR$(24);" Format 
" ! CHR$(24);:PRINT" (fuer Code-Nr. kann 
[0] oder'[ENTER] eingegeben werden)" 

3310 PRINT:PRINT CHR$(24);" 

Code-Nr. ":PRINT" Name 

".-PRINT" Strasse ":PRI 
NT:PRINT" Piz ";CHR$(24);" ";CHR$(24)" 
Ort ";CHR$(24) 

3320 FOR j=1 TO 3:LOCATE 29,j+12:PRINT CHR 
$(242);:INPUT" Feld Nr.: ",feld:format(j)= 
feld:GOSUB 2210:po(j)=x:NEXT 
3330 LOCATE 29,17:PRINT CHR$(242);:INPUT" 
Feld Nr.: ",feld:format(4)=feld:GOSUB 2210 
:po(4)=x:LOCATE 45,17:INPUT"Feld Nr.: ",fe 
ld:format(5)=feld:GOSUB 2210:po{5)=x 
3340 CLS:PRINT" 1. Aufkleber einbahnig 2 
. Aufkleber zweibahnig ausdrucken":opt$=" 
12":GOSUB 4140:st=k 

3350 CLS:PRINT" 1 . alle Adressen 2. Adres 
sen nach Nr. ausdrucken":opt$="12":GOSUB 4 
140:ON k GOTO 3370,3360 
3360 GOSUB 3640:GOTO 3380 
3370 lnum=1:hnum=hsatz 

3380 CLS:FOR i=lnum TO hnum:j=i+1:IF j>hnu 
m THEN j=i 

3390 IF po(1)=0 THEN po(1)=1:MID$(b$,po<1) 
,feldlen(format( 1 )))=" " 

3400 r%=i:|BANKREAD,@r%,b$,i:PRINT# 8 :PRINT 
#8 ,TAB(24);MID$(b$,po(1),feldien(format(1 ) 

));:IF st=1 THEN 3420 

3410 r%=j: IBANKREAD,@r%,b$,j:PRINT# 8 ,TAB (6 
2);MID$(b$,po(1),feldlen(format(1)));:r%=i 
:!BANKREAD,@r%,b$,i 

3420 PRINT #8 : PRINT #8 : PRINT #8 , TAB ( 4 ); UPPER$ 
(MID$(b$,po(2),feldlen(format(2))));:IF st 
=1 THEN 3440 

3430 r%=j:[BANKREAD,@r%,b$,j:PRINT# 8 ,TAB(4 
2);UPPER$(MID$(b$,po(2),feldlen(format(2)) 

));:r%=i:IBANKREAD,@r%,b$,i 

3440 PRINT# 8 :PRINT# 8 ,TAB(4);UPPER$(MID$(b$ 

,po(3),feldlen(format(3))));;IF st=1 THEN 
3460 

3450 r%=j: |BANKREAD,@r%,b$,j:PRINT# 8 ,TAB(4 
2);UPPER$(MID$(b$,po(3),feldlen(format(3)) 

) ) ; : r% = i : |BANKREAD,@r%,b$,i 

3460 PRINT# 8 :PRINT# 8 :PRINT# 8 ,TAB(4);UPPER$ 

(MID$ (b$, po (4 ), feldlen ( format ( 4 )))),-: PRINT 

# 8 ,TAB(9);UPPER$(MID$(b$,po(5),feldlen(for 

mat(5))));:IF st =1 THEN 3480 

3470 r%=j:|BANKREAD,@r%,b$,j:PRINT# 8 ,TAB(4 

2);UPPER$(MID$(b$,po(4),feldlen(format(4)) 

) ),- : PRINT# 8 , TAB ( 47 ) ; UPPER$ (MID$ (b$ , po ( 5 ) , f 


[1627 ] 
(7608) 


[6046] 


[2320 ] 

[2252 ] 
[7841 ] 


[7911 ] 


[2021 ] 
[1510] 
[476] 
[3369] 

[693 ] 

[1553] 

[856] 

[1143] 

[1018] 

[1143] 

[2417] 

(9021 ] 


[7708 ] 


[9318] 


[7112] 


[10327] 


[7702) 


[6521 ] 


[1620] 
[2037 ] 
[2753] 

[4890] 

[7427 ] 


[7996] 


[6310] 


[8155] 


[7250] 


[9688J 


[10251 ] 


[11 388 ] 
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eldlen(format(5))));:i=i+1 


(zei-1):LOCATE maxlen+2,zei+2:a$(zei)=MID$ 


3480 PRINT#8 : PRINT#8 : PRINT08 : PRINT#8 : PRINT 

(3351J 

(b$,le+zei,feldien(zei)):PRINT a$(zei ) :NEX 


#8 :PRINT#8:NEXT i 


T 


3490 GOTO 1010 

(345] 

4060 PRINT CHR$(24);:CLS#2:PRINT#2,CHR$(24 

(1061 2 ) 

3500 ' 

(117] 

);" Wenn Sie ein Feld nicht aendern moecht 


3510 '.•***»********•*• 

[670] 

en, [ENTER] oder [RETURN] druecken. ";CHR$ 


3520 '* ERROR ROUTINE * 

[1778] 

(24) 


3530 

[670] 

4070 GOSUB 3780:CLS#2:PRINT#2," Moechten S 

(86101 

3540 ' 

[117] 

ie weitere Datensaetze aendern ? (j/N)":op 


3550 CLS :PRINT,CHR$ (!)•," Fehler" ; ERR; "in Z 

(2835) 

t$ = "jn":GOSUB 4140:IF k = 1 THEN 4020 


eile";ERL 


4080 PAPER#3,0:PEN#3,1:CLS#3:RETURN 

[2395 ] 

3560 PRINT:PRINT," beliebige Taste druecke 

[4010] 

4100 ... 

[528] 

n" 


4110 ' * INKEYROUTINE * 

[996] 

3570 ON BREAK STOP 

(431 ] 

4120 ••««***»•******** 

[528] 

3580 IF INKEY$="" THEN 3580 ELSE RESUME 10 

[1887 ] 

41 30 ' 

[117] 

10 


4140 k$=INKEY$:IF k$ = "" THEN 4140 

[2964] 

3600 '*****•*****»»»• 

[345] 

4150 IF INSTR(UPPER$(opt$),UPPER$(k$))=0 T 

(2651 ] 

3610 '* NR.-ROUTINE * 

[524] 

HEN 4140 


3620 '*»************* 

1345] 

4160 k=INSTR(UPPER$(opt$),UPPER$(k$)):RETU 

[32871 

3630 ' 

[117] 

RN 


3640 CLS#2:PRINT#2,CHR$(24);" Mit [0] zuru 

(8426 ] 

4170 ' 

[117] 

eck zum Hauptmenue " ;CHR$ ( 24 ); : INPUT#2, " 


4180 '**..*..**..*. 

[483 ] 

von Nr.: ",lnum:IF lnum<1 THEN 1010 


4190 '* QUICKSORT * 

[1027 ] 

3650 IF lnum>hsatz THEN 3640 

[979] 

4200 ' «******»***»* 

[483 ] 

3660 LOCATE#2,53,1:INPUT#2,"bis Nr.: ",hnu 

[4117] 

4210 ' 

[117] 

m:IF hnum=0 THEN 1010 


4220 ERASE k1,k2:DIM kl(hsatz),k2(hsatz):n 

[3316] 

3670 IF hnum<lnum THEN 3660 

[1828] 

1 =f :i=f:n2=g 


3680 IF hnum>hsatz THEN hnum=hsatz 

(3344 ] 

4230 jl=n1:j2=n2 

[1 392 ] 

3690 RETURN 

[555] 

4240 r%=j1 : |BANKREAD,@r%,b$,j1 :c$=b$ 

[1 440] 


[659] 

4250 r%=j2: | BANKREAD,@r%,b$,j2:d$=b$ 

[2031 1 

3720 ' * EINGABEROUTINE * 

(1219 1 

4260 IF sort=2 THEN 4280 

[691 ] 

3730 '*»**»*********.... 

[659 ] 

4270 IF UPPER$(MID$(c$,x,l))<=UPPER$(MID$( 

[3138 ] 

3740 1 

[117] 

d$,x,1)) THEN 4420 ELSE 4290 


3750 GOSUB 3760:GOTO 3780 

[1562] 

4280 IF UPPERS<MID$(c$,x,l))>=UPPER$(MID$( 

[3492] 

3760 LOCATE 2,1:PRINT"Datensatz-Nr.: ";sat 

[9323 1 

d$,x,l)) THEN 4420 


z:LOCATE 40,1:PRINT FNfrsatz;" Datensaetze 


4290 x$=c$:c$=d$:d$=x$ 

(721 ] 

frei" 


4300 b$=d$:r%=j2:[BANKWRITE,@r%,b$,j2 

[2131 ] 

3770 FOR i=1 TO hfeld:LOCATE 1,i+2:PRINT f 

[1 0082 ] 

4310 b$=c$:r%=j1:[BANKWRITE,@r%,b$,j1 

[2090 ] 

eld${i);">";CHR$(24);SPACE$(feldien(i));CH 


4320 j1=j1+1 

[908] 

R$(24);"<";CHR$(18):NEXT:RETURN 


4330 IF j1=j2 THEN 4440 

[1217] 

3780 FOR zei=1 TO hfeld:PRINT CHR$(24);:LO 

[5274 ] 

4340 r%=j1:[BANKREAD,@r%,b$,j1:c$=b$ 

[1 440] 

CATE maxlen+2,zei+2:INPUT"",c$:IF c$="!" T 


4350 r%=j-2 : [ BANKREAD,@r%,b$ , j2 :d$=b$ 

[2031 ] 

HEN RETURN 


4360 IF sort=2 THEN 4380 

[751 ] 

3790 IF c$="" THEN a$(zei)=a$(zei) ELSE a$ 

[3651 ] 

4370 IF UPPER$(MID$(c$,x,1))<=UPPERS(MID$( 

[3588] 

(zei)=c$ 


d$,x,l ) ) THEN 4320 ELSE 4390 


3800 IF LEN(a$(zei))>feldlen(zei) THEN a$( 

(3843] 

4380 IF UPPERS(MID$(c$,x,l))>=UPPER$(MID$( 

[3273 ] 

zei)=LEFT$(a$(zei),feldlen(zei)) 


d$,x,l)) THEN 4320 


3810 IF LEN(a$(zei))<feldlen(zei) THEN a$( 

[5434] 

4390 x$=c$:c$=d$:d$=x$ 

[721 1 

zei)=a$(zei)+STRING$(feldlen(zei)-LEN(a$(z 


4400 b$=d$:r%=j2 : | BANKWRITE, <a r %,b$,j 2 

[2131 ] 

ei))," ") 


4410 b$=c$:r%=j1:[BANKWRITE,@r%,b$,j1 

[2090] 

3820 PRINT CHR$(24);:NEXT zei 

(1939 1 

4420 j 2=j 2-1 

[568] 

3830 c$="" 

[431 ] 

4430 IF j 2 < >j1 THEN 4240 

[1199] 

3840 FOR i=1 TO hfeld-1:c$=c$+a$(i)+" ":NE 

(3924 ] 

4440 j2=j2 + 1 

[572] 

XT:c$=c$+a$(hfeld):b$=c$ 


4450 IF j2 >=n2 THEN 4480 

[15381 

3850 FOR i=1 TO hfeld:a$(i)="":NEXT 

[1065 ] 

4460 kl(i)sj2:k2(i)=n2 

[1736] 

3860 !BANKWRITE,@r%,b$,satz:RETURN 

[3790] 

4470 i=i+1 

[307 J 

3870 ' 

(117) 

4480 j1=j1-1 

[872] 

3880 '*******•**»»..*** 

[670] 

4490 IF nl<j1 THEN n2=j1:GOTO 4230 

[2035] 

3890 '* PAUSENROUTINE * 

[1 684] 

4500 i=i-1 

[319] 

3900 ' ********«•*■.***»• 

1670 ] 

4510 nl=k1(i):n2=k2(i):IF i>f-1 THEN 4230 

[2103 ] 

3910 ' 

[117] 

4520 RETURN 

[555] 

3920 FOR i=1 TO pause:NEXT:RETURN 

[2014 ] 

4540 ... 

[1 460 ] 

3930 1 

[117] 

4550 '* DRUCKEREINSTELLUNG (Riteman F+) * 

[1827 ] 

3940 ... 

[657] 

4560 ... 

[1460 ] 

3950 '* DATENSATZ AENDERN * 

[994] 

4570 ' 

[117] 

3960 '******••********....» 

(6571 

4580 CLS:PRINT" Welchen Zeilenabstand moec 

(9289 ] 

3970 ' 

[117] 

hten Sie einstellen ?":PRINT:INPUT " 1/8 Z 


3980 CLS#2:PRINT#2," 1. Datensatz aendern 

[67471 

oll=0 1/6 Zoll=2 ",zeiab$ 


2. Datensatz loeschen 3. Hauptmenue":o 


4590 CLS:INPUT " Wieviel Zeilen moechten S 

(5670 ] 

pt$ = "123":GOSUB 4140:ON k GOTO 4020,3990,1 


ie pro Seite drucken ?: ",zeil 


01 0 


4600 PRINT:INPUT " Wieviel Leerzeilen moec 

(8042 ] 

3990 CLS#2:INPUT#2," Welchen Datensatz moe 

[9246 ] 

hten Sie nach jeder Seite drucken ?: ",lee 


chten Sie loeschen ? Nr.: ",satz:LOCATE#2, 


rzei:zeil=zeil+leerzei '( PERFORAT 


50,1::PRINT#2," Moment bitte..." 


ION UEBERSPRINGEN) 


4000 FOR i=satz TO hsatz:r%=i:|BANKREAD,@r 

(8461 ] 

4610 CLS:PRINT" In welcher Schriftart moec 

[10511 ] 

%+1,b$,i+1: | BANKWRITE, <§r%, b$ , i: NEXT i:hsat 


hten Sie drucken ? ":PRINT:INPUT " Pica=P 


z=hsatz -1 


Elite=M Italic=4 ",schrift$:schrift$ 


4010 r%=0:CLS#2:PRINT#2," W)eitere Datens 

(8632 ] 

=UPPER$(schrift$) 


aetze loeschen E)nde":opt$="we":GOSUB 4 


4620 PRINT:PRINT" In welcher Schriftbreite 

18360] 

140:IF k=1 THEN 3990 ELSE RETURN 


moechten Sie drucken ? ":INPUT " Normal= 


4020 PAPER#3,0:PEN#3,1:CLS#3:CLS#2:INPUT02 

[10992 ] 

0 Breit=1 ",schrift 


," Welchen Datensatz moechten Sie aendern 


4630 PRINT:PRINT " Moechten Sie in komprim 

110747 ] 

? Nr.: ",satz:IF satz<1 OR satz>hsatz THE 


ierter Schrift drucken (J/N)":opt$="jn":GO 


N 4020 


SUB 4140:IF k=1 THEN kompr=15 ELSE kompr=1 


4030 r%=satz:JBANKREAD,@r%,b$,satz 

(1 932 1 

8 


4040 CLS:CLS#2:GOSUB 3760:PRINT CHR$(24);: 

[4766 ] 

4640 OPENOUT file4$ 

[1 420 ] 

LOCATE maxlen+2,3:a$(1)=MID$(b$,1,feldien( 


4650 WRITE#9,zeiabS,zeil,leerzei,schrift$, 

[4942 ] 

1)):PRINT a$(1) 


schrift,kompr 


4050 le=0:FOR zei = 2 TO hfeld:le=le+feldlen 

(1 1 6991 

4660 CLOSEOUT:RETURN 

[1447] 
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AMSTRÄD 

40015 

72 9 3-1951 85GSMÄ 


als Turn-Key-Syst^n 


Dazu muß lediglich auf der Komponentenseite (Oberseite) 
des Schneider Floppy-Controllers die Lötbrücke LK1 mit ei¬ 
nem scharfen Messer durchgetrennt werden. 

Nach Unterbrechung dieser Lötbrücke versucht das 
AMSDOS bei jeder Initialisierung (Einschalten/Reset) CP/M 
von Diskette zu laden und zu starten. 

Um den CPC unter dem Locomotive-Basic zu betreiben, ist 
entweder das CP/M-Programm AMSDOS.COM notwendig. 


Um den Ausschalter zu nutzen, wird an den Lötpunkten der 
Lötbrücke je eine Ader des Flachbandkabels angelötet; die 
anderen Kabelenden werden am Schalter angelötet, der bei 
entsprechender Größe leicht im Controller-Gehäuse unter¬ 
gebracht werden kann. 

Aber Achtung! Nach diesem Hardwareeingriff übernimmt 
die Firma Schneider mit großer Wahrscheinlichkeit keine 
Garantie mehr. 

Arnold Bemberg 


Schalter 


Mit einem kleinen Schnitt, 10 cm Flachbandkabel (zwei 
Adern) und einem Ausschalter ist es möglich, bei jedem Ein¬ 
schalten und jedem RESET sofort in das CP/M 
''durchzustarten". 


oder eben der Schalter, mit dem das "Turn-Key-System" ein¬ 
fach wieder abgeschaltet wird (indem die Brücke wieder ge¬ 
schlossen wird), so daß der Schneider wieder ganz normal 
arbeitet. 


■* 
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Profi-Software für c » Schneider 



NEVADA FORTRAN (Ellis) 

Die Sprache für Wissenschaft und 
Ingenieurwesen. Dieser Compiler 
ist durchaus mit solchen FOR- 
TRAN-Compilern vergleichbar, die 
auf Mini- und Großrechnern laufen. 
Nevada FORTRAN ist sowohl ein 
Subset als auch ein Superset der 
ANSI-66 Standards. Nevada 
FORTRAN wird mit einem engli¬ 
schen Benutzerhandbuch geliefert. 
E607 DiSC DM189,- 


• Una p£, Cor npil a , ,e S<£ 

* Bh g IgBra n)l j;'''a'ion 




.flrifeucT 9 e 


CBASIC COMPILER™ 

(Digital Research) 

Der CBASIC Compiler von Digital 
Research zeichnet sich durch sehr 
hohe Genauigkeit und Vielseitig¬ 
keit aus. Er ist speziell zum Erstel¬ 
len kaufmännischer Anwendungen 
sehr geeignet. CBASIC bedient 
u. a. die GSX-Schnittstelle Ihres 
Schneider Rechners. 

(JOYCE &CPC6128) 

D102 Disc DM 199,50 






i?3§|§5 

I 


DR DRAW™ 

(Digital Research) 

DR DRAW hilft Ihnen beim Erstel¬ 
len und Aufbereiten hochwertiger 
Präsentationsunterlagen. Mit 
Linien, Symbolen und Text können 
Sie Logos, Block-Diagramme, 
Ablauf-Diagramme und andere 
komplexe Layouts erstellen. 
(JOYCE & CPC6128) 

D103 Disc DM 199,50 


GRAPHIK 


Computerspiele & Zubehör für die CPC-Familie 


Cass. 

3D STUNT RIDER (Motorrad Stuntfahren) 29.50 

SOCCER (Fußball) 39,50 

3D INVADERS(Weltraumspiel) 29.50 

ROLAND AHOY! 39,50 

AMERICAN FOOTBALL 39,50 

CENTRE COURT (Tennis) 29,50 

TRAFFIC (Verkehrsregelung) 39.50 

FRUITMACHINE (Spielautomat) 29,50 

CLASSIC RACING (Pferderennen) 29.50 

GRAND PRIX RALLYII (Autorennen) 39^50 

ASTROATTACK (Weltraumspiel) 29,50 

LORDS OF MIDNIGHT(Adventure) 39,50 

TOMBESTOWN 39,50 

3DBOXING (Amsoft Gold) 39,50 

MACROCOSMICA (Amsoft Gold) 39,50 

ALEX HIGGINS POOL (Poolbillard) 39,50 


Disc. 


49 — 

LIGHTPEN LP-1 mit Software 

59,— 

CPC-PIO (zum Steuern & Regeln) 

49,— 

CPC-UHR (Selbstbausatz) 

59.— 

SPRACHSYNTHESIZER SSA-1 

59.— 


49,— 

CP/M 2.2 USER GUIDE (orig, engl.) 

59.— 

GUIDE TO LOGO (orig, engl.) 

49.— 


49,— 

DISKETTENBOX für 153 Disketten 

59,— 

DISKETTENBOX für 30 3 Disketten 

49,— 


59,— 


59,— 


59,— 


59.— 


59.— 



99,— 

98,— 

98,— 

148,— 

59,— 

69,— 

39,— 

49,— 
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für 464-664-6128 


Es sollte wirklich kaum zu glauben sein, daß die ohnehin 
schon schnelle Schneider-Floppy noch zu beschleunigen 
ist. 

Wer sich allerdings das ROM Listing der DD1 im Data Becker 
Floppy-Buch genauer ansieht, wird schnell erkennen, daß 
dieser Effekt mit relativ einfachen Mitteln zu erreichen ist. 
Wie schon bekannt, beschäftigen sich bei Amstrad immer 
gleich mehrere Programmierer mit einem Programm. Ge¬ 
nauso muß es auch beim AMSDOS gewesen sein. Die Grund¬ 
werte für Verzögerungszeiten bei Schreib- und Leseprozedu¬ 
ren wurden hier nämlich sehr willkürlich gewählt. 

Sie können durch ein kurzes Assemblerlisting modifiziert 
werden. Ab Adresse C5D4 im ROM 7, dem Floppy-ROM, 
steht eine Tabelle in der die Parameter für die Laufzeiten fest¬ 
gelegt sind. 

Diese Werte sind wie folgt: 


adresse 

wert 

bemerkung 

C5D4 

0032 

Hochlaufzeit fuer diskmotor 

C5D6 

OOFA 

Tickerlaufzeit fuer floppymotor 

C5D8 

AF 

??????? 

C5D9 

OFOC 

Delayloop 

C5DB 

01 

Head Unload Time 

C5DC 

03 

Head Load Time 


Die Werte in dieser Tabelle scheinen rein willkürlich ge¬ 
wählt zu sein, wenn man alle Werte durch Ausprobieren ein 
wenig manipuliert, so ergeben sich bei gleicher Datensicher¬ 
heit wesentlich höhere Geschwindigkeiten bei jeder 
Floppyoperation. 

Die nachfolgenden Werte ergeben eine Geschwindigkeits¬ 
steigerung von 25%. Dropouts oder Datenverluste verlassen 
hierbei auch nicht den gewohnten Rahmen, und auch die 
mechanische Beanspruchung des Laufwerks ist nicht zu 
hoch. Lediglich die Fehlermeldung DISK MISSING er¬ 
scheint schneller als gewohnt. Durch Drücken der Taste R 
wird jedoch ein neuer Leseversuch vorgenommen, der das ge¬ 
wünschte Ergebnis bringt. 


Folgende Werte sind also zu empfehlen: 


C5D4 

0023 

hochlaufzeit Diskmotor 

C5D6 

00C8 

Tickerlaufzeit Floppymotor 

C5D8 

01 

???? 

C5D9 

010A 

Delayloop 

C5DB 

00 

Head Unload Time 

C5DC 

03 

Head Load Time 


Natürlich kann man auch mit noch kleineren Werten ar¬ 
beiten, aber dann geht das Ganze auf Kosten der Da¬ 
tensicherheit. Dem Experimentieren sind hierbei jedoch 
keine Grenzen gesetzt. 

Stellt sich nur noch die Frage, wie wir die neue Tabelle dem 
DOS klarmachen. In ein ROM läßt sich ja nichts poken. 
Dazu machen wir einfach einen RST &18 zur Adresse C60D 
im Floppy-ROM. 

Diese Adresse wird jedesmal beim Einschalten angesprun¬ 
gen und erfordert in HL die neue Tabelle. Also laden wir ein¬ 
fach HL mit der Tabelle, springen über eine ROM-CALL diese 
Adresse an und übergeben die neuen Werte. Den Rest erledigt 
das Floppy-ROM auf so komfortable Weise, daß durch un¬ 
sere Routine nicht ein einziges Byte Speicherplatz verbraucht 
wird und tatsächlich bis zum Ausschalten der Floppy aktiv 
bleibt. 

Die Vorteile für dieses Verfahren liegen auf der Hand. Kurzes 
Programm, keine Kollision mit bestehenden Programmen, 
volle Ausnutzung der Floppygeschwindigkeit. 

Tippen Sie also den kleinen Basiclader ein und speichern Sie 
ihn ab, bevor Sie ihn starten. Der Lader löscht sich nach der 
Installation der neuen Parameter von selbst. Für MC- 
Interessierte ist das sehr kurze Assemblerlisting abgedruckt. 
Das Label ROMCAL spezifiziert hier die Adresse und 
ROM-Nummer, die angesprungen werden soll. Das Label 
NEWTAB enthält die neuen Laufwerksdaten. 

Viel Spaß beim beschleunigten Arbeiten mit dem 
Schneider Laufwerk. 

Volker Schick 

10 FOR adr= &1000 TO &1012 
20 READ byte$:byte=VAL("&"+byte$) 

30 POKE adr.byte 
40 NEXT adr 

50 CALL &1000:CLS:PRINT"TURBO DOS 1,0 ON 
": NEW 

60 DATA 21,A, 10, DF,7, 10 ,C9,D,C6,7,23, 0 ,C 
8,0, 1,1, A,0,3,0 


BIG ASS 


NO ERROR 


PASS 1 


1000 210A10 

1003 DF0710 

1006 C9 

1007 0DC607 

100A 2300C800NEWTAB:DB 23H,OOH,C8H,00H 
100E 01010A00 DB 1H,1H,AH,00 

NO ERROR 


LD HL,NEWTAB 
RST 18H,ROMCAL 
RET 

ROMCAL:DB 0DH,C6H,07H 
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DISCMON.BAS 

für 464-664-6128 || 

1. Allgemeines: 

Nach Start mit RUN wird die Maschinenroutine "DISC- 
MON.BIN" in den Bereich &6000-&608a geladen. Das 
Hauptmenue erscheint. Der Pufferbereich, in den die Sekto¬ 
ren mit der Länge 512 Byte geladen werden, liegt bei &6100- 
&62ff. 

ln Mennes wird durch Tippen eines der invers dargestellten 
Buchstaben die gewünschte Funktion aufgerufen. Bei Zahlen¬ 
eingaben wird der zuletzt eingestellte Wert in Klammern 
dargestellt. Er kann übernommen werden, indem nur 
ENTER gedrückt wird. 

2. Hauptmenue: 

Das Programm ist modulartig aufgebaut, alle Vorgänge kön¬ 
nen in beliebiger Reihenfolge aufgerulen werden: 

* Lesen von Diskette ( 1 ): 

Nach Abfrage von Track und Sektor wird die erste Hälfte des 
Sektors, also 256 Byte, in HEXA und ASCII dargestellt. Das 
Lesemenue bietet folgende Möglichkeiten: 

- "Leertaste" blättert weiter, zunächst in die zweite Hälfte des 
Sektors, dann in den nächsten Sektor, was einen Lesevor¬ 
gang und Überschreiben des Puffers bedeutet. 

- "z" blättert zurück. 

- ”a” verzweigt direkt in die Routine zum Ändern des Puffers, 
s. "Puffer ansehen und ändern”. 

- ”d" druckt den Sektor aus, wie Hauptmenuepunkt. 

- "m" kehrt ins Hauptmenue zurück. 

* Lesen blockorientiert ( b ): 

Da der Platz auf der Diskette in Blöcken von 1K. also zwei 
Sektoren, verwaltet wird, ist dies vor allem beim fi¬ 
leorientierten Arbeiten zweckmäßig. Die Blöcke, die ein File 
belegt, stehen im Directory in der Zeile unter dem Filenamen. 
Das Directory beginnt in Block 0. 

* Schreiben auf Diskette ( s ): 

Fs werden wieder Sektor und Track abgefragt, was jeweils ein- 


* Puffer festlegen ( p ): 

Die voreingestellte Pufferlage (&6100-&62ff) kann auf 
höhere Adressen verändert werden. Hierdurch können 
mehrere Sektoren in den Arbeitsspeicher übernommen 
werden. 

* C'AT ( c ): Normale Directory-Ausgabe 

* Ende ( e ): Programm verlassen 

3. Anwendungsbeispiele: 

Mit der Möglichkeit, den Disketteninhalt unabhängig von 
den Einschränkungen des Basic’s zu verändern, ergibt sich 
ein weites Anwendungs- und Experimentierfeld. Beim Aus¬ 
probieren sollte man aber eine Kopie der Diskette 
gemacht haben. 

- Wiederherstellen von gelöschten Files: 

Beim Löschen eines Files wird zunächst nurdas erste Byte des 
File-Eintrages im Directory (ab Track 2, Sector 1) auf &E5 ge¬ 
setzt. Solange nicht durch erneutes Erzeugen eines Files der 
trei gewordene Platz auf der Diskette beansprucht wird, kann 
durch Eintrag einer User-Nr. zwischen &00 und &0f anstelle 
von &E5 das File wieder hergestellt werden. 

- Setzen von read/only bzw. read/write: 

Durch Setzen des höchsten Bits im ersten Zeichen der Ex¬ 
tension des Filenamens wird das File vor Löschen und Über- 
schreiben geschützt. Das entspricht einer Addition von &80, 
also wird z.B. aus &42 in der Extension "BAS” ein &C2. 

- Setzen von Systemeigenschaft: 

Durch entsprechendes Verändern des zweiten Zeichens in 
der Extension wird das File nicht mehr unter CAT oder DIR 
angezeigt. Das Rücksetzen erfolgt jeweils entsprechend. 

- File-Header und Inhalt ansehen und ändern: 

Das erste Byte in der zweiten Zeile des Directory-Eintrages 
zeigt die Lage des ersten Blocks des Files an. Nach Riick- 
sprung ins Hauptmenue und Wahl von ”b” kann direkt dieser 
Block in HEXA eingegeben und der erste Sektor gewählt wer¬ 
den. Jetzt wird der Anfang des Files gelesen. 

Falls ein Header vorhanden ist, beginnt der eigentliche File- 
Inhalt bei &80. 

Und jetzt viel Spaß und Erfolg bei der Anwendung: 


rach mit ENTER beantwortet wird, wenn ein geänderter 
Sektor an die gleiche Stelle auf der Diskette zurückgeschrie- 
ben werden soll. Natürlich kann auch an einen anderen Ort 
oder auf eine andere Diskette kopiert werden. 

* Puffer ansehen und ändern ( a ): 

Der zuletzt eingestellte Puffer wird angezeigt wie beim Lesen, 
es erscheint auch das gleiche Menue. Im Gegensatz zum Le¬ 
sen kann nur innerhalb des Sektors geblättert werden. 

Das Ändern erfolgt folgendermaßen: 

Es wird zunächst die Adresse angegeben, ab der geändert wer¬ 
den soll. Die Angabe erfolgt in HEXA, bezogen auf den 
Pufferanfang. 

Anschließend wird die neue Zeichenkette eingegeben, wobei 
solange ASCII-Klartext einzugeben ist, solange nicht mit 
CTRL+x in HEXA-Eingabe umgeschaltet wurde. Bei 
HEXA-Eingabe werden je zwei Zeichen als ein Byte inter¬ 
pretiert. Mit CTRL+x kann auch wieder von HEXA in 
ASCII umgeschaltet werden, so daß beliebig gemischt werden 
kann. 

Nach Abschluß mit ENTER w ird die Zeichenkette ab der ein¬ 
gegebenen Adresse in den Puffer kopiert. 

* Puffer ausdrucken ( d ): 

Der Drucker wird auf Elite eingestellt, Ränder w'erdcn festge¬ 
legt und der amerikanische Zeichensatz wird gewählt. Die 
Steuerzeichen sind Epson-kompatibel. Änderungen je nach 
Geschmack sind leicht möglich (Zeile 1710). 


100 '-pdiscmon- [4732] 

- 18.10.85 --- 

110 '- Maschinenroutine fuer di [5860] 

scmon poken - 

120 ’- [3447 ] 


130 MEMORY &5FFF [102] 

140 RESTORE 210 : sum=0 [752) W. 

150 FOR adr=&6000 TO &6089 [1262] 

160 READ i$ : i=VAL("&"+i$) : sum=sum+i [2936] 

: POKE adr,i 

170 NEXT adr [453] llf 

180 IF sum <> 13540 THEN PRINT"Fehler in C [3300] ^ 

heck-Summe!"CHR$(7) : STOP 

190 SAVE"discmon.bin",b,&6000,&8B [2000] 

200 END [110] 

210 DATA 2a,7f,60,7d,fe,85,20,0c,11,5e,60, [2797] 
cd, 3d, 6 0, cd, 0 6 

220 DATA bb, f e, 6a, c0,21 , 7f, 60 ,cd ,d4 , bc, 38 , [2877 ] 

07,11,47,60,cd i 

230 DATA 3d,60,c9,22,80,60,79,32,82,60,1e, [23631 
00,16,02,Oe,41 

240 DATA 21,00,61,df,80,60,21,84,00,22,7f, [4050] 
60,c9,1a,fe,24 

250 DATA c8,cd,5a,bb,13,18,f6,63,6f,6d,6d, [2874] 

61,6e,64,20,6e 

260 DATA 69,63,68,74,20,67,65,66,75,6e,64, [3596] 

65,6e,24,73,65 

270 DATA 63,74,6f ,72,20,61 ,75,66,20,64,69, [1891] 
73,63,20,73,63 

280 DATA 68,72,65,69,62,65,6e,3f,20,28,6a, [2939] 

2f,6e,29,24,84 #| 

290 DATA 00,00,00,cd,06,bb,32,ff,60,c9 [2550] 
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100 '-discmon- 

- 18.10.85 - 

110 '-Direktes Lesen und Schreibe 


n von Disketten-Sectoren 
120 '- 


14306J 
15714 ] 
13711 J 


130 MEMORY &5FFF : DEFINT a-z : MODE 2 
140 LOAD"discmon.bin",&6000 

'Maschinenroutine laden 
150 buffer=&6100 : a$=STRING$(16," ") : u$ 
=CHR$(24) : lf$=CHR$(13)+CHR$(10) 

160 k=0 : sector=65 : sbloc=1 : x$="&0000" 
: del$=CIIR$ ( 8 ) +CHR$ (18) : b$=CHR$<7) 

170 lb$=CHR$(11)+CHR$(18) 

180 1$=" 01 2345678 

9 A B C D E F 0123456789ABCDEF" 

190 in=32 : taste=&6083 : POKE taste+4,@in 
MOD 256 : POKE taste+5,@in\256 
200 GOSUB 1230 
210 ' 

220 '-Hauptmenue- 


[1822 ] 
[5092 ] 

[4018] 

[4149] 

[1164] 

[3383] 

[4986 ] 

[877] 
[117] 
[3772 ] 




fl 



230 CLS 



[91 ] 



• Disc - 

[5865 ] 

•••*" : PRINT lf$ 

250 PRINT " 

Lesen 

von Dis 

(3567 ) 

c: "u$" 1 "u$lf$ 

260 PRINT " 

Lesen 

Block-o 

(4293 1 



rientiert: 

"u$" 

b 

"u$lf$ 



:T7ö PRINT " 




Schreiben auf 

[5120 ) 

Disc: 

"u$" 

s 

"u$lf$ 



280 PRINT " 




Puffer ansehe 

[4342 ] 

n+aendern: 

"u$" 

a 

"u$lfS 



29Ö PRINT " 




Puffer ausdru 

[3359] 

cken: 

"u$" 

d 

"u$lf$ 



300 PRINT " 




Puffer festle 

[4140 ] 

gen: 

"u$" 

P 

"u$ 



" (& 

HEX$(buffer)" 

, -&"HEX$<buffer+&1 


FF)")"lf$ 






310 PRINT " 




CAT: 

[2726 ] 


"u$" 

c 

"u$lf$ 



320 PRINT " 




Ende: 

[3088 ] 


"u$" e "u$lf$lf$ 


330 CALL taste 


340 

IF 

in=108 

THEN 

GOSUB 

1020 

; 

GOSUB 1300 

: 

GOTO 230 







350 

IF 

in= 98 

THEN 

GOSUB 

1100 

: 

GOSUB 1300 

• 1 

GOTO 230 







360 

IF 

in=115 

THEN 

GOSUB 

1020 

: 

POKE 

&607F 

, &85 : 

CALL &6000 : 

: GOTO 

230 




370 

IF 

in= 97 

THEN 

GOSUB 

1400 

• 

GOTO 

230 

380 

IF 

in=100 

THEN 

GOSUB 

1700 

: 

GOTO 

230 

390 

IF 

in=112 

THEN 

GOSUB 

1200 

; 

GOTO 

230 

400 

IF 

in=99 THEN CLS : CAT : 

PRINT ' 

'Leert 


aste druecken": CALL taste : GOTO 230 
410 IF in=101 THEN CLS : END 
420 PRINT CHR$(7 ) ; : GOTO 330 
1000 ' 

1010 '-Eingabe von track, 

sector - 

1020 PRINT "track "; : x=track : GOSUB 
1900 : track=x 

1030 IF track<0 OR track>39 THEN PRINT b$l 
b$"nur 0-39 moeglich! "; : GOTO 1020 
1040 PRINT "sector"; : x=sector-64: GOSUB 
1900 : sector=x+64 

1050 IF sector<65 OR sector>73 THEN PRINT 
b$lb$"nur 1-9 moeglich! ";:GOTO 1040 
1060 drive=0 : POKE &602B,drive 
1070 POKE &602D,track : POKE &602F,sector 
1080 RETURN 

1100 '-Eingabe von Block, 

sector - 

1110 IF track>1 THEN x=(track-2)*9+sector- 
65 : block=x\2 : sbloc=x MOD 2 +1 
1120 PRINT "Block : x=block : GOSUB 

2000 : block=x 

1130 PRINT "sector 1/2"; : x=sbloc : GOSUB 
1900 : sbloc=x 

1140 x=block*2+17+sbloc : track=x\9 : sect 
or=x MOD 9 +65 
1150 GOSUB 1070 
1160 RETURN 

1200 '-Puffer defini 

eren- 

1210 INPUT"Neuer Buffer-Anfang? (in Hex)"; 
buf $ 

1220 buffer=VAL("&"+buf$) 

1230 IF buffer<6100 THEN PRINT "Adresse zu 
klein!"CHR$(7) : GOTO 1210 
1240 POKE &6031,buffer MOD 256 : POKE &603 
2,buffer\256 
1250 RETURN 

1300 '-Lesen von D 

isc- 

1310 CALL &6000 'sector in buffer le 

sen 

1320 GOSUB 1400 
1330 IF in= 32 THEN 1360 
1340 IF in=122 THEN 1380 
1350 RETURN 

1360 IF sector<73 THEN sector=sector+1 ELS 
E IF track<39 THEN track=track+1 : 

sector=65 ELSE PRINT b$; 

1370 GOTO 1390 

1380 IF sector>65 THEN sector=sector-1 ELS 
E IF track>0 THEN track=track-1 : 

sector=73 : ELSE PRINT b$; 

1390 GOSUB 1070 : GOTO 1310 

1 400 '-Puffer anz 

eigen - 

1410 anfg=buffer : i2 = 1 
1420 IF k=0 THEN CLS 

1430 PRINT#k,"track";track;" sector"secto 
r-64; 

1440 IF k=0 THEN PRINT " part";i2;lf$lf$1 
$lf$ ELSE PRINT#k,lf$lf$l$lf$ 

1450 FOR i=anfg TO anfg+&FF STEP &10 
1460 MID$ (a$ ,1)=STRING$(16,".") 

1470 PRINTtfk," ";HEX$(i-buffer,4);" "; 
1480 FOR 1=0 TO &F 

1490 a=PEEK(i+1) : PRINT#k,HEX$(a,2);" 

IF a >31 AND a<127 THEN 
MID$(a$,1+1)=CHR$(a) 

1500 NEXT 1 

1510 PRINT#k," "a$ 

1520 NEXT i 

1530 IF k=8 THEN RETURN 

1540 PRINT lf$"weiter:"u$"Leertaste"u$" 


[748 ] 
[2387] 

12933] 

[3473 3 

(1773 ) 
[2062] 
11361 ) 
[4609] 

[999] 
[1217] 
[117] 
[50911 

[3429] 

(4681 ] 

[3403 J 

[3457] 

12945] 

[2719] 

[555] 

[45133 

[4967 ) 

(3217 J 

[4634] 

[4832 ] 

[829] 
1555] 
(5399 ] 

[3596] 

(22271 
[4439 ] 

[3865] 

1555] 
[3776 ] 

(2105 ] 

(899) 
[1227 ] 
(583) 
[555] 
[6695 ] 


[421 ] 
[7061 ] 


[1462] 

[4895] 

[1642 ] 
[1 587] 
[3314 3 

[2747] 


[2070 ] 
[1037 ) 

(2696 ] 
[1126] 
[4493 ] 


[464 ] 
[1196] 
[471 ] 
[9831 
[9725] 


54 cpc 


2 '86 Sonderheft 




























II IIIIIIIIIIIIIIIMIIIIIIIIIII 




zurueck:"u$" z "u$" aendern:"u$" a " 

u$" drucken:"u$" d "u$" Menue:" 
u$" m "u$ 

1550 CALL taste 

1560 IF in=32 AND i2=1 THEN i2=2 : anfg=bu 
ffer+&100 : GOTO 1420 

1570 IF in=122 AND i2=2 THEN i2=1 : anfg=b 
uffer : GOTO 1420 

1580 IF in=109 OR in=32 OR in=122 THEN RET 
URN 

1590 IF in=97 THEN GOSUB 1760 : GOTO 1420 
1600 IF in=100 THEN GOSUB 1700 
1610 PRINT CHR$(7); : GOTO 1550 
1620 ' 

1700 '-Puffer ausdrucken — 

1710 PRINT #8,CHR$(27)"B"CHR$(2)CHR$(27)"R [9565] 
"CHR$(4)CHR${27)"N"CHR$(4)CHR$(27)"M"CHR$( 

8)CHR$(27)"7"CHR$(0 ); ‘Drucker: Elite, 

Raender, amerikan. Zeichensatz 
1720 k=8 : GOSUB 1400 
1730 anfg=buffer+&100 : GOSUB 1450 
1740 k=0 
1750 RETURN 

1760 '-Puffer veraendern — 


1850 GOTO 1870 

1860 POKE adr,VAL("&"+MID$(strp$,istr,2) 

) : istr=istr+1 'hexa 
[748] 1870 ip=ip+1 

[4048] 1880 NEXT istr 

1890 RETURN 

[3165] 1900 1 -Eingabe von Dec-Zahlen 


[3048] 1910 PRINT " (";x;") ? 


[1159] 

[ 2002 ] 

[570] 

[555] 

[4617] 


1770 PRINT lb$"ab welchem byte im Puffer a 
endern, hexa x=start : 

GOSUB 2000 : start=x 

1780 PRINT lb$"neuer Inhalt ab &"HEX$(star 
t)"? (Umschalten in hexa und zurueck mit C 
TRL+x)"lf$ : LINE INPUT strp$ 

1790 hex=0 ; ip=0 

1800 FOR istr=1 TO LEN(strp$) 

1810 ap=ASC(MID$(strp$,istr,1)) : adr=bu 
ffer+start+ip 

1820 IF ap=24 THEN IF hex=0 THEN hex=-1 
: istr=istr+1 ELSE hex=0 : GOTO 1880 
1830 IF hex THEN 1860 

1840 POKE adr,ap 

'ascii 


IF in=13 THEN PRIN 


[349] 
[3041 ] 

[1218] 

[864] 

[555] 

[4169] 

[1238] 

[2715] 


1920 z=1 : GOSUB 1940 
13109] T : RETURN ELSE x=0 
[1644] 1930 x=x*z+in-48 : z=z»10 : GOSUB 1940 : I [3671] 

[1558] F in=13 THEN PRINT : RETURN ELSE 1930 

[117] 1940 CALL taste 

[3671] 1950 IF in=13 THEN RETURN ELSE IF in=127 T 

HEN 1980 ELSE IF in<48 OR in>57 THEN 
PRINT CHR$(7);; GOTO 1940 
1960 PRINT CHR$(in); 

1970 RETURN 

1980 IF z >1 THEN PRINT CHR$(8)CHR$(18); : 
x=x\10 : z=z\10 ELSE x=6 
1990 GOTO 1940 

2000 '-Eingabe von Hexa-Zahlen 

2010 PRINT " ( ";HEX${x)" > ? "; 

2020 z=2 : GOSUB 2040 : IF in=13 THEN PRIN 
[63753 T : RETURN ELSE MID$(x$,2)=" " 

2030 MID$(x$,z)=CHR$(in) : z=z+1 : GOSUB 2 
040 : IF in=13 THEN 2080 ELSE 2030 
[8001 ] 2040 CALL taste 

2050 IF in=13 THEN RETURN ELSE IF in=127 T 
HEN 2100 ELSE IF in<48 OR in>70 AND 
11364] in<96 OR in>57 AND in<65 OR in>102 THE 

11896] N PRINT CHR$(7); : GOTO 2040 

[4516] 2060 PRINT CHR$(in); [878] 

2070 RETURN [555] 

[4559] 2080 x=VAL(UPPER$(x$>) : PRINT [1845] 

2090 RETURN [555] 

[1644 ] 2100 IF z >2 THEN PRINT del$; : z=z-1 : MID [3175] 

[1174] $(x$,z)=" " 

2110 GOTO 2040 [355] 


[748] 
[6121] 


[878] 

[555] 

[3920] 

[3433 

14942) 

[17521 

[5395] 

13682 ] 

[748] 

[9836) 


cm 


lül 
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DiscTape als RSX 


Der RSX-Befehl IDISCTAPE” ist dem umständlichen CP/ 
M-Befehl "CSAVE" nachempfunden. Im CP/M muß das 
CSAVE-Programm und das zu kopierende Programm auf ei¬ 
ner Diskette sein. 

Bei diesem RSX wird erst der Name des Programms auf 
Diskette übergeben, dann der Name, mit dem es auf Kasset te 
gespeichert werden soll. Zum Schluß wird noch die Geschwin¬ 
digkeit übergeben. Sie muß eine Zahl zwischen 130 und 
480 sein. Bei 167 hat man eine Geschwindigkeit von 2000 
Baud (speed write 1), bei 333 eine von 1000 Baud (speed 
write 0). 

Beispiel: 

a$=”test.bin” : bS^Testprogramm” 

Idisctape. @ u$, (5) b$, 167 

Das Programm ”test.bin” auf Diskette wird auf Kassette unter 
dem Namen “testprogramm” mit 2000 Baud abgespeichert. 
Headerlose Programme lassen sich leider nicht übertragen. 

Guido Trier 


für 464-664-6128 


ü 


RSX : "DISCTAPE" 
(c) by Guido Trier 
1 98 6/Bonn 


[1164] 
[1203 ] 
[805] 
[497 ] 
[1164] 


60 MEMORY &A0FF 

70 add=&A100 : RESTORE 150 : summe=0 
80 READ wert$ : IF wert$="999" THEN 100 
90 wert=VAL(wert$) : summe=summe+wert : PO 
KE add,wert : add=add+1 : GOTO 80 
100 CLS : IF summe<>21104 THEN 110 ELSE 13 
0 

110 PRINT "Error in Checksum !!!" 

120 END 

130 PRINT "Alles OK !t!" 

140 CALL &A100 : END 

150 DATA 41,410 r 4A1,421,4A,4A1,&CD,&D1,&BC 
,&C9,&0,&0,&0,&0,&0,&0 

160 DATA 415,4A1,&C3,&1E,&A1,&44,&49,&53,& 

43,&54,& 41,& 50,&C5,&0,&DD,&66 

170 DATA 41,&DD,&6E,&0,&22,&0,&AC,&DD,&66, 

S3,&DD,&6E,&2,&7E,&32,&25 

180 DATA &AC,&23,&5£,&23,&56,&ED,&53,&20,& 

AC,SDD,&66,&5,&DD,&6E,&4,&7E 

190 DATA &32 , & 15 ,&AC,&23,&5E,&23,&56,&ED.& 

53,&10,&AC,&21,4B7,&A1,&CD,&D4 

200 DATA &BC,&AF,&CD,&1B,&0,&2A,&10,&AC,&3 

A,& 15,&AC,447,411 , & 0,& 40,&CD 

210 DATA &77,&BC,&ED,453,&30,&AC,SED,&43,& 

40,&AC, & 32,& 60,&AC, &2A,&30,&AC 

220 DATA &CD,&83 ,&BC,&22,&50,&AC,&CD,&7A,& 

BC, & 21,&BB,&A1,&CD,&D4,&BC,&AF 

230 DATA &CD,&1B,&0,&2A,&0,&AC,&3E,432,4CD 

,&68,4BC,43A,425,4AC,447,42A 

240 DATA 420,4AC,411,40,440,&CD,48C,4BC,42 

A,&30,4AC,4ED,45B,440,4AC,SED 

250 DATA 44B,450,4AC,43A, 460,&AC,4CD,498,4 

BC,4CD,48F, 4BC,421,4B7,4A1,4CD 

260 DATA 4D4,4BC,&AF,4CD,41B, 40,&C9,444,44 

9,&53,4C3,&54,& 41,450,4C5,999 


[446 ] 
[1 523 ] 
[2326] 
[5210] 

[2545] 

[2924 ] 

[ 110 ] 

[1353] 

[737] 

[3800] 

[2582] 

[2907] 

[1947 ] 

[3145 1 

[2626] 

[2989] 

[4212] 

(2148 ] 

[3180] 

[3839 ] 

[4022] 
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2 


* RSX 

"DISCTAPE" * 


3 


* (c) by Guido Trier * 


4 


* 1986/Bonn * 


5 


* Assembler-Listing * 


7 

8 
9 

10 


org 

#a1 00 

;Programmanfang auf #a 100 

20 

buffer: equ 

#4000 

jBuffer auf #4000 

30 


ld 

bc,comand 

;Adresse des Kommando in BC 

40 


ld 

hl,kern 

;Adresse des Kern in HL 

50 


call 

#bcd1 

jEinbinden des RSX-Befehl 

60 


ret 



70 

kern: defs 

#0006 

;Vom System benutzter Kern fuer RSX 

80 

comand: defw 

tabell 

;Adresse der Kommandotabelle 

90 


jp 

routin 

;Sprungtabelle 

100 

tabell: defm 

"DISCTAP" 

;Name des RSX 

IW 


defb 

#c5 

; letzter Buchstabe+#80 

1 20 
125 

1 30 


defb 

0 

;Kennzeichen fuer Ende der Tabelle 

routin: ld 

h,(ix+#01 ) 


1 40 


ld 

1,(ix+#00) 


160 


ld 

{#ac00),hl 

Geschwindigkeit nach #ac00 

1 70 


ld 

h,(ix+#03) 


180 


ld 

1,(ix+#02) 


181 


ld 

a,(hl) 


182 


ld 

(#ac25),a 

;Laenge des Kassettennamen nach #ac25 

185 


inc 

hl 


190 


ld 

e,(hl) 


200 


inc 

hl 


210 


ld 

d, (hl) 


220 


ld 

(#ac20),de 

;Adresse des Kassettennamen nach #ac20 

230 


ld 

h, (ix+#05) 


240 


ld 

1,(ix+#04) 


241 


ld 

a,(hl) 


242 


ld 

(#ac15),a 

jLaenge des Diskettennamen nach #ac15 

245 


inc 

hl 

250 


ld 

e,{hl) 


260 


inc 

hl 


270 


ld 

d,(hl) 


280 


ld 

(#ac10),de 

;Adresse des Diskettennamen nach #ac10 

285 

290 





ld 

hl,disc 


300 


call 

#bcd4 

; suchen nach Befehl DISC 

310 


xor 

a 

;kein Parameter ist uebergeben 

320 


call 

#001 b 

;ausfuehren des Befehls DISC 

325 

330 





ld 

hl,(#ac10) 

;Adresse des Diskettennamen in HL 

331 


ld 

a,(#ac15 ) 


340 


ld 

b ,a 

jLaenge des Diskettenname in B 

350 


ld 

de,buffer 

;Adresse des Buffers in DE 

360 


call 

#bc77 

;DISC IN OPEN 

370 


ld 

(#ac30),de 

;Anfangsadresse des Programm nach #ac30 

380 


ld 

(#ac40),bc 

;Laenge des Programms nach #ac40 

390 


ld 

(#ac60),a 

;Art des Programms nach #ac60 

400 


ld 

hl,(#ac30 ) 

;Anfangsadresse des Programm in HL 

410 


call 

#bc83 

;Programm laden 

420 


ld 

(#ac50),hl 

;Einsprungadresse nach #ac50 

430 

435 

440 


call #bc7a 

;DISC IN CLOSE 


ld hl,tape 


450 


call 

#bcd4 

;suchen nach Befehl TAPE 

460 


xor 

a 

;kein Parameter ist uebergeben 

470 


call 

#001 b 

jausfuehren des Befehls TAPE 

475 

480 





ld 

hl,(#ac00) 

Geschwindigkeit in HL 

490 


ld 

a, 50 

;Vorprueflaenge in A 

500 


call 

#bc68 

Geschwindigkeit setzen 

501 

505 





ld 

a,(#ac25) 


510 


ld 

b,a 

;Laenge des Kassettenname in B 

520 


ld 

hl,( #ac20 ) 

»•Adresse des Kasettenname in HL 

530 


ld 

de,buffer 

;Adresse des Buffers in DE 

540 


call 

# bc8c 

GAS OUT OPEN 

550 


ld 

hl,(#ac30) 

;Anfangsadresse des Programms in HL 

560 


ld 

de,(#ac40) 

;Laenge des Programms in DE 

570 


ld 

bc,(#ac50) 

;Einsprungadresse des Programms in BC 

580 


ld 

a,(#ac60) 

;Programmart in a 

590 


call 

#bc98 

;Programm speichern 

600 


call 

#bc8f 

GAS OUT CLOSE 

605 

610 





ld'"” 

hl,disc 


620 


call 

#bcd4 

;suchen nach Befehl DISC 

630 


xor 

a 

;kein Parameter ist uebergeben 

640 


call 

#001 b 

;ausfuehren des Befehls DISC 

650 


ret 



660 

disc: defm 

"DIS" 

;Name fuer DISC 

670 


defb 

#c3 

;letzter Buchstabe+#80 

680 

tape: defm 

"TAP" 

fuer TAPE 

690 


defb 

#c5 

;letzter Buchstabe+#80 


598,— 
798,— 
1298,— 
379— 


Schneidet PCW 8256 Joyce 
Schneidet CPC 464 Keyboard 
Schneidet CPC 664 Keyboard (mit Floppy) 
Schneider CPC 6128 Keyboard (mit Floppy) 
Schneid»! Grilnnonitor GT-65 (für alle CPC) 


Schneidet Farbmonitor CTM-644 (für alle CPC) 798,— 
Schneidet CPC 464 mit Grünmonitor 729,— 

dito mit Farbmonitor 1198,— 

Schneidet CPC 664 mit Grünmonitor 998,— 

dito mit Farbmonitor 1498,— 

Schneider CPC 6128 mit Grünmonitor 1498,— 

dito mit Farbmonitor 1998,— 

Schneider 3 Zoll Floppy-Disk DDI-1 
mit CP/M und Logo 749,— 

dito als zweites Laufwerk (ohne CP/M u. Logo) 569,— 
Vortex 525 Zoll Floppy Disk F1-S (Einzelstation) 1198— 
Vodex 5.25 Zoll Floppy Disk Fl -D (Doppelstation) 1698,— 
Vortex Aufrüstkit A1-S; F1-S auf F1-D 499,— 
Vortex 5.25 Zoll als Zweitlaufwerk Fl -Z 698,— 

Vortex 3.5 Zoll M1-S Elnzellaufwerk 998,— 

Vartex 35 Zoll M1-D Doppelstation 1498,— 

Vortex 3.5 Zoll als Zweitlaufwerk M1-Z 634,— 

Cumana 3 Zoll als Zweitlaufwerk 398,— 

Cumana 5.25 Zoll als Zweitlaufwerk 598,— 

Cumana 3.5 Zoll als Zweitlaufwerk 598,— 

Cumana 3.5 Zoll Doppelstation 998,— 

Datenrecorder für CPC 664/6128 79 — 

Matrixdrucker CPA 80 GS (Traktor inkl 
jetzt m. NLO 749.— 

3 Zoll Disketten 5 Stück 59,— 

ab 10 Stück je 11,50 ab 100 Stück je 10,50 
5.25 Zoll Disketten lür Vortex-Lautwerke 
96 tpi 10 Stück 69,95 

dito jedoch 100 Stück 595,— 

Netzteil MP-2 f. Schneider CPC 464,664 u. 6128 149 — 
RAM-Erweiterung SP-64 64KByte 
(insgesamt 128KByte) 275.— 

RAM-Erweiterung SP-128 128KByte Vortex 348,— 

RAM-Erweiterung SP-256 256KByte 478,— 

RAM-Erweiterung SP-320 320K8yte 528,— 

RAM-Erweiterung SP-512 512KByte 589,— 

Verlängerungskabel 1.50 m für CPC 464 29,95 

dito für CPC 664 und CPC 6128 34,95 

Quickshot II mit Autofire 29,95 

Competition Pro 5000 mit Microschaltern 69,95 

Diskettenbox für 40 3 Zoll Disketten 39,95 

Diskettenbox für 40 3 5 Zoll Disketten 39,95 

Oiskettenbox für 40 5.25 Zoll Disketten 49,95 

Diskettenbox 1.100 5.25 Zoll Disketten m. Schloß 49,95 
SUPER Sprachsynthesizer + Stereosoundf. CPC 159,— 
Lightpen für alle CPC 109,— 

Maus für alle Schneider 149,— 

Staubschulzhauben für CPC 464/664/6128, 

NLQ-401, DDI-1. Monitor Grün/Farbe je 17,95 
komplett f. CPC u. Monitor (bitte Geräte angeben) 29.95 
Akustikkoppler S21d (ohne Software u. Kabel) 298,— 
Druckerkabel Centronics/CPC 464/664 49,— 

dito für CPC 6128 59,— 

SUPERSOFTWARE für Ihren CPC 
Wordstar 3.0 199,— 

dBase II 199,— 

Multiplan 199,— 

Turbo Pascal 219,— 

Turbo Graphics Toolbox 279,— 

Turbo Tutor 109,— 

Turbo Lader Grundpaket 139,— 

Turbo Lader Business 149,— 

Turbo Science 189,— 

Alle Programme auch lür Joyce geeignet. Daher bitte 
Compuiertyp und Diskformat angeben. 

DRUCKERPARADE" DRUCKERPARADE 

Epson LX-80100 Zeichen/Sek. 1 KByte Puffer 948,— 
Epson LX-90100 Zelchen/Sek. 1 KByte Puffer 948,— 
Epson FX-85 1 60 Zeichen/Sek. 8KByte Puffer 1478,— 
Epson FX-105 160 Zeichen/Sek 8KByte Puffer 1898,— 
Epson JX-80 Farbmatrixdrucker 1998,— 

Epson HI-80 4-Färb-Plotter bis A4 1298,— 

Epson LQ-1500 200 Zeichen/Sek., 
mit 24 Nadeln, A3 3398— 

Panasonic KX-P1080 (100 Zeichen/Sek.) 849,— 

Panasonic KX-P 1091 (120 Zeichen/Sek.) 949,— 

Panasonic KX-P 1092 (180 Zeichen/Sek.) 1249,— 

Panasonic KX-P 1592 
(180 Zeichen/Sek.; Breitformat) 1649,— 

Panasonic KX-P 3151 Typenraddrucker 1549.— 

Präsident 6313 (baugleich Europrint 80) 
mit Interface 798— 

StarSG-10 (120 Zeichen/Sek, 2KByte Druckpuffer) 919,— 
Star SG-15 (120 Zeichen/Sek.. 16KByte) 1298.— 

Riteman F+ (105 Zeichen/Sek„ 2KByte Puffer) 1098— 
AnschluBkabel I. Schneider Centronic/CPC 464/664 49,— 
dito für CPC 6128 59,— 

Endlospapier weiß m. A4 Mikropetloration 500 Blatt 19,95 
dito jedoch 1000 Blatt 34,95 

dito jedoch 2000 Blatt 49,95 

Druckerständer 79,— 

Ersatzfarbbänder auf Anträge lielerbar. 

Literatur von Data Becker, Markt & Technik, tewi u. Sybex. 
Alle Drucker mit NLQ-Schrift und Centronics-Anschluß. 
Alle Geräte mit FTZ, 6 Monaten Garantie und deutschem 
Handbuch. 

Ausführliche Unterlagen für jedes Gerät gegen 1.50 OM 
In Briefmarken. 

Wir liefern sofort ab Lager! Alle Preise inkl. MWSL 
BESUCHEN SIE UNS IN RAVENSBURG!! 

ACHTUNG! Für ausländische Besteller supergünstige 
Konditionen!! 

1. Spitzen Preis-ZLeistungsvertiältnis 

2. Erstattung der gesamten Mehrwertsteuer 

3. Bezahlung äußerst einfach durch eigenes Konto in der 
Schweiz und in Österreich. 

Bachstraße 52 
D-7980 Ravensburg 
Tel.: 0751/26138 oder 26497 
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MC-Tracer 


gister können einzeln oder paarweise geändert werden. Die 
möglichen Bezeichnuneen für die Einzelregister sind: A, B, C, 
D, E, H, L. F, I, R. A\ B\ C’, D', E\ H\ L' und F. 



MC-TRACER ist ein Hilfsprogramm für alle CPC-Besitzer, 
die mehr über das ROM Ihres Computers wissen möchten. Es 
ermöglicht die Disassemblierung und Einzelschrittverar¬ 
beitung beliebiger ROM- und RAM-Bereiche. 

Nach dem Start des Programmes wird man nach dem ROM- 
Select-Byte gefragt, mit dieser Zahl zwischen 0 und 255 be¬ 
stimmt man, ob an den Adressen 0 bis 16383 (Bank 0) und 
49152 bis 65535 (Bank 3) der ROM- oder RAM-Speicher gele¬ 
sen werden kann. 

Durch die Eingabe von Z' gelangt man zum Tracer, hier muß 
zuerst bestimmt werden, ob ein CALL-Befehl weiterverfolgt 
und ob die Z80-Macrobefehle, wie LDIR und LDDR, in Ein¬ 
zelbefehle aufgelöst abgearbeitet werden sollen. Nach der 
Eingabe der gewünschten Speicheradresse, wird der erste Ma¬ 
schinencodebefehl disassembliert. die aktuellen Register¬ 
werte des Z80 und die fünf obersten Einträge auf dem Stapel 
angezeigt. Danach kann man entscheiden, ob der Programm¬ 
ablauf fortgesetzt oder abgebrochen werden soll. Mit 'ENTER' 
erreicht man die Fortsetzung, jede andere Taste führt zum 
Abbruch der Trace-Funktion. Mit D’ kann man beliebige 
Speicherbereiche disassemblieren, das erzeugte Assemblerli- 
sting kann man wahlweise auf dem Drucker oder auf dem 
Bildschirm ausgeben lassen. 

Es werden immer 23 Zeilen nacheinander ausgegeben, mit 
'ENTER' kann man die Ausgabe dann fortsetzen, eine andere 
Taste bricht die Ausgabe ab. 

Nach der Eingabe von 'S' kann man einen neuen ROM/ 
RAM-Status wählen und mit Hilfe von 'A' können die Regi¬ 
sterwerte des Z80 Mikroprozessors geändert werden. Die Re- 


Die möglichen Bezeichnungen für die Doppelregister sind: 
AF. BC, DE, HL, IR, IX, IY, SP, AF, BC, DE' und HL'. 

So kann man z.B. den Stapelzeiger mit der Eingabe von 'SP' 
und '&8BOO' wieder auf seinen ursprünglichen Wert 
zurücksetzen. 


Anweisung zur Erzeugung einer schlüsselfertigen Version an¬ 
hand der Programmlistings: 

Zuerst das Programm TRACER abtippen und abspeichern, 
danach die Programme OPCODE und MCPROG in dieser 
Reihenfolge abtippen und ablaufen lassen und den von die¬ 
sen beiden Programmen erzeugten Code direkt hinter 
TRACER abspeichern, anschließend muß dann noch das 
Basic-Programm BASPROG dahinter abgespeichert werden. 

Thomas Fippl 

Programm TRACER 


100 SYMBOL AFTER 256 [14 

08} 

110 POKE &AE7D,&FF [475} 

120 POKE &AE7E,&7F [816] 

130 POKE &B296,&FF [529J 

140 POKE &B297, &7F [407] 

150 MEMORY &3FFF [758] 

160 LOAD"!Code",88000 [659] 

170 CALL &8513 [516] 

180 RUN"tbasprog [1111] 

Programm OPCODE 

100 1=&8000:z=250:MEMORY &7FFF [2142] 

110 FOR n=1 TO 282:READ b$ [1399] 

120 s=VAL(b$):IF s GOTO 220 [2181] 

130 FOR m=1 TO LEN(b$)-1 (1907) 

140 a=ASC(MID$(b$,m)) [991] 

150 p=(p XOR a)+a [1178] 

160 IF a=59 THEN a=44 [1114] 

170 POKE l,a:1=1+1:NEXT [973] 

180 b=ASC(MID$(b$,m)):a=b+128 [1986] 

190 p=(p XOR a)+b [1185 J 

200 POKE 1,a:1=1+1 [684] 

210 NEXT.-END [735 ] 

220 IF s<>p THEN PRINT"Error in";z:STOP [2429] 

230 p=0:z=z+1:GOTO 210 11070] 

240 ‘ [117] 


250 DATA B,C,D,E,H,L,(HL), A,HALT,ADD,ADC,S (3642] 
UB,SBC,AND,2990 

251 DATA XOR,OR,CP,RLC,RRC,RL,RR,SLA,SRA,S [3003] 
LI,SRL,BIT,1974 

252 DATA RES,SET,NOP,LD BC;m,LD (BC);A,INC [2552] 
BC,2726 

253 DATA INC B,DEC B,LD B;n,RLCA,EX AF;AF 1 [1695] 

,ADD HL;BC,2142 

254 DATA LD A;(BC),DEC BC,INC C,DEC C,LD C [2360] 
;n,3014 

255 DATA RRCA,DJNZ e,LD DE;m,LD (DE);A,INC [3816] 
DE,2034 

256 DATA INC D,DEC D,LD D;n,RLA,JR e,ADD H [1756] 
L;DE,2516 

257 DATA LD A;(DE),DEC DE,INC E,DEC E,LD E [2478] 
;n,3170 

258 DATA RRA,JR NZ;e,LD HL;m,LD (m);HL,INC [2186] 
HL,2468 

259 DATA INC H,DEC H,LD H;n,DAA,JR Z;e,ADD [2978] 
HL;HL,2590 

260 DATA LD HL;(m),DEC HL,INC L,DEC L,LD L [2818] 
;n,2180 

261 DATA CPL,JR NC;e,LD SP;m,LD (m);A,INC (2111) 
SP,2144 

262 DATA INC (HL),DEC {HL),LD (HL);n,SCF,J [2476] 
R C;e,3054 

263 DATA ADD HL;SP,LD A;(m),DEC SP,INC A,D [697] 
EC A, 1912 

264 DATA LD A;n,CCF,RET NZ,POP BC,JP NZ;m, [2576] 
JP m,2244 

265 DATA CALL NZ;m,PUSH BC,ADD n,RST 0,RET [1496] 
Z , 3292 

266 DATA RET,JP Z;m,>,CALL Z;m,CALL m,ADC [2768] 
n,RST 1 /DW m,2830 

267 DATA RET NC,POP DE,JP NC;m,OUT (n);A,C [2824] 
ALL NC;m,3510 
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268 DATA PUSH DE,SUB n,RST 2 /DW m,RET C,E [2650] 
XX,1884 

269 DATA JP C;m,IN A;(n),CALL C;m,>,SBC n, [3589] 
RST 3 /DW m,2354 

270 DATA RET PO,POP HL,JP PO;m,EX (SP);HL, [2256] 
CALL PO;m,3018 

271 DATA PUSH HL,AND n,RST 4,RET PE,JP HL, [2494] 
JP PE;m,926 

272 DATA EX DE;HL,CALL PE;m,>,XOR n,RST 5 [2076] 

/DW m,2080 

273 DATA RET P,POP AF,JP P;m,DI,CALL P;m,P [3097] 
USH AF,3254 

274 DATA OR n,RST 6,RET M,LD SP;HL,JP M;m, [3257] 
EI,3138 

275 DATA CALL M;m,>,CP n,RST 7,IN B;(C),OU [2970] 
T (C);B,2658 

276 DATA SBC HL;BC,LD (m);BC,NEG,RETN,IM 0 [2250] 
,LD I;A,2032 

277 DATA IN C;(C),OUT (C);C,ADC HL;BC,LD B [2534] 
C;(m),2470 

278 DATA RETI,?,?,LD R;A,IN D;(C),OUT (C); [2411] 
D,SBC HL;DE,2318 

279 DATA LD (m);DE,?,?,IM 1,LD A;I,IN E;(C [2498] 
),OUT (C);E,2774 

280 DATA ADC HL;DE,LD DE;(m),?,?,IM 2,LD A [2286] 
;R,2036 

281 DATA IN II; (C),OUT (C);H,SBC HL ; HL, LD ( [3107] 
m);HL,1938 

282 DATA ?,?,?,RRD,IN L;(C),OUT (C);HL,ADC [3308] 
HL;HL,1154 

283 DATA LD IIL;(m),?,?,?, RLD,?,?, SBC HL;SP [3405] 
,LD (m);SP,2796 

284 DATA ?,?,?,?,IN A;(C),OUT (C);A,ADC HL [3038] 
;SP,1898 

285 DATA LD SP;(m),LDI,CPI,INI,OUTI,?,?,?, [2806] 
?,LDD,CPD, 1 1 50 

286 DATA IND,OUTD,?,?,?,?,LDIR,CPIR,INIR,0 [2721] 
TIR,?,?,?,3402 

287 DATA ?,LDDR,CPDR,INDR,OTDR,420 [3564] 


Programm MCPROG 


100 m=&84E8:FOR z=200 TO 274 [1539] 

110 READ b$,s:p=0 [761 J 

120 FOR 1=1 TO LEN(b$)STEP 2 [1880] 

130 b=VAL( "&"+MID$(b$,1,2)) [14321 

140 POKE m,b:p=(p XOR b)+b [1841] 

1 50 m=m+1 :NEXT [1 542 ] 

160 IF s<>p THEN PRINT"error in";z:STOP [2825] 

170 NEXT [350] 

180 SAVE"code",b,&8000,S990 [1475] 

190 ' [117] 


200 DATA 00000000000000000000000000000000, [2053] 
0 

201 DATA 0000000000000000008b000000000000, [2311] 
278 

202 DATA 0000000000000000000000012085211c, [1899] 
430 

203 DATA 85c3d1bc000000003185c34885c35285, [2252] 
1894 

204 DATA c35785c35c85c361854449d35553d253, (2535] 
2686 

205 DATA 45d45045cb5453d40000000000000000, [2189] 
1 452 

206 DATA 216685224285df4285c9219b8718f421, [1666] 
700 

207 DATA f28718ef21fd8718ea212b8818e5fe02, [3175] 
2912 

208 DATA cOaf3241852f324585dd4603dd4e02c5,•[3514] 
2204 

209 DATA d5dde1cd5d87feddcc5887fefdcc5487, [2376 ] 
3412 

210 DATA fecbca3f86feedca77867ba7280d3dca, [2716] 
2372 

211 DATA 9b863dcac08621cd8118032144807ae6, [2253] 
2594 

212 DATA 3f4728077e238730fb10f91104857ee6, [2442] 
1686 

213 DATA 7f1213fe202810fe3f200612l3121318, [3039] 

1002 

214 DATA 6abe2328e91 864237e2 3f5e67f123a41 , [2936] 
1846 

215 DATA 85a7283547eb7efe28200d1ae67ffe48, [1885] 
1718 

216 DATA 2005cdcc8618117efe4820181ae67ffe, [3189] 

2160 

217 DATA 4c200b3649237023ebf17e23182a7023, 12101] 
1588 

218 DATA 1a7718f3fe4c28f6ebe51afe652005cd, [2622] 


21 30 

219 DATA 00871812fe6e2005cd16871809fe6d20, 
1344 

220 DATA 04cd1e871b13e1f187309de10e047b91, 
1910 

221 DATA 772371233685c93a4185a7280bdd23cd, 
1178 

222 DATA 5d87dd2bdd2b1803cd5d877b110485a7, 
1692 

223 DATA 200a21258078cd7e87eb1854c53d213b, 
1670 

224 DATA 80cd7e87f1c63012133e2c121318eacd, 
2344 

225 DATA 5d87d6403817fe3c3006215383c3a785, 
1 298 

226 DATA d6603809feic300521a28418f021ae83, 
1 990 

227 DATA c3b3857afe762005210b8018f3210485, 
1434 

228 DATA 364c2336442336202378cdd186362c23, 
572 

229 DATA 79cdd1865dc3338621Of8011048578cd, 
1710 

230 DATA 7e871895c51313181ac51100804f3a41, 
1706 

231 DATA 8547a7792007ebcd8687ebc1c9fe0620, 
2210 

232 DATA f53628233649237023362b23ebe5cd16, 
1556 

233 DATA 87e1eb362923c1c9d5cd5d87dde52145, 
1982 

234 DATA 85cbf6e116005f87300115191816d5cd, 
1808 

235 DATA 5d876faf1810d5214585cbfecd5d876f, 
2102 

236 DATA cd5d87673e01dl4f3e2612130d7ccc3a, 
1366 

237 DATA 877d4fe6f01f1f1f1fcd478779e60ffe, 
21 04 

238 DATA 0a3804c6371802c6301 21 3c93e591802 , 
952 

239 DATA 3eS8324185dd7e00dd23e521458534e1, 
1768 

240 DATA 57e6074f7a1f1f1fe607477a1e0017cb, 
996 

241 DATA 1317cb137ac9cd86873e201 213c9a728, 
1752 

242 DATA 08477e238730fblOf97ee67f12be231 3, 
2020 

243 DATA 28f7c93dc0f3ed73e884ed53c58731ea, 
2762 

244 DATA 84c179ed4778d612ed4ff108f1cldl ei, 
321 4 

245 DATA d9c1dl eiddelfdeled7b0085c30000f3, 
2302 

246 DATA ed731085310085fde5dde5e5d5c5d9e5, 
3516 

247 DATA d5c5018e7fd9f508f508ed5fd61847ed, 
3042 

248 DATA 574fc5ed7be684ed56c9a7c0f3d9ed43, 
2952 

249 DATA f084d9fbc9fe02c0dd6603dd6e021a77, 

1 990 

250 DATA c9131afeb038183a4785a72012219089, 
2058 

251 DATA 010000c5e536ed231acba7772318391 b, 
1766 

252 DATA 1al813fe02c0dd6603dd6e02e521eb84, 
2050 

.253 DATA 341afeed28cbfec03065473a45854f87, 

1 756 

254 DAi'A 87383079e6033c4f78fe760600281 721 , 
1608 

255 DATA 9089c5e5ebedb0eb36c32311c7877323, 
2978 

256 DATA 72dlcd9d87c1eie75f23e757eb09eb72, 
2608 

257 DATA 2b73c9780600fei0280c328888cd8a89, 
1362 

258 DATA 18Üa0e0218e021f7843528f6131a4f87, 
1584 

259 DATA 300105e10303cd6f883eff324185c93a, 
2258 

260 DATA 458547 e 6033c4f2104857efe432842fe, 
1976 

261 DATA 522869fe4a20927806008730191a1332, 

1 504 

262 DATA cd88cd8a89c3d5880103001899e11a77, 
2452 


[2089] 
[1818 ] 
[2255 ] 
[3070] 
[3510] 
[3057 ] 
[2763] 
12851 ] 
(31121 
[2170 ] 
[2165] 
[2706 ] 
[2387 ] 
(2737 ] 
[1511 ] 
[2041 ] 
[2206] 
[3757] 
[3737] 
(2096 J 
[2312] 
[2586 ] 
[3048 ] 
(1864 ] 
[2197] 
[2672 ] 
12916 ] 
[2729 ] 
[1566 ] 
[2674 ] 
[1 575 1 
(25091 
(2988 ] 
[2062 ] 
[2847 ] 
[2083] 
[2386 ) 
[2614 ] 
[2244 } 
12415] 
126321 
[3098] 
[2212] 
(2479 ] 


11 
« f 
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Floppy 


lim 


263 DATA 1 3231a7718c31aOebdfee928054f21eb. 

[2354 J 

1510 s=LEN(i ) + {RIGHT$( i,1 )=""') 

[1 465] 

1728 


1520 IF s <1 OR s >2 THEN RETURN 

[1192] 

264 DATA’ 843479e6600fOfOfOf4f21f88409eb18, 

[1886 ] 

1 530 n=s *8:PRINT#2,USING"##”;n; 

[1640] 

1278 


1540 INPUT#2,"-Bit Wert";l 

[1136] 

265 DATA dc3a4685a7c25388237efe4120f71al3, 

[1979 ] 

1 550 IF 1<-2 A (n-1 )OR l>2 A n-1 GOTO 1530 

[3169] 

2102 


1560 a=LEFT$(UPPERS(i)+" ",s+1) 

[2937] 

266 DATA 320e89cd8a89cd138918bde113132a00, 

[26851 

1570 m=UNT{1):IF s=2 GOTO 1620 

[2101 ] 

1692 


1580 1=(INSTR("I R F'ä'F A C'B 1 E'D'L'H'C B 

[3771 ) 

267 DATA 852b722b732200851bl bl8b1 237efe53, 

[1669] 

E D H L ",a)-1)/2 


1 440 


1 590 IF 1< >INT(1)THEN RETURN 

[1722] 

268 DATA 1a2842fecbca5188feed2821 328589cd , 

[2544] 

1600 POKE &84EA+1,PEEK(@m) 

(1297 ) 

1822 


1610 GOSUB 1910:GOTO 1500 

[1543 ] 

269 DATA 8a893e02cd85894f3dca6e882a00855e , 

[3601 ] 

1620 1=(INSTR("IR AF 1 AF BC'DE'HL'BC DE HL 

[3262] 

2058 


IX IY SP " ,a)-1)/3 


270 DATA 235623220085e1732372c3a188131a1b, 

(2504 ] 

1630 IF 1< >INT(1)THEN RETURN 

[1722 1 

988 


1640 p=&84EA+l*2:POKE p,PEEK(@m) 

(2125 ) 

271 DATA fe452805fe4cc25188328989cd888921 , 

[1882 ] 

1650 POKE p+1,PEEK(@m+1) 

[682] 

1260 


1660 GOSUB 1910:GOTO 1500 

[1 543] 

272 DATA eb843418d7fecf2805feefc251883ecd, 

[2751 ] 

1670 : 

[174] 

2454 


1680 INPUT#2,"Adresse";1 

[1 342 ] 

273 DATA 32c487cd9d873ec332c48718bfc93dc9, 

[2471 ] 

1690 IF 1<&8000 OR 1>65535 GOTO 1680 

[2255] 

2344 


1700 pc=UNT(1):RETURN 

[26281 

274 DATA ed002aee84e5f1c9,1032 

[1 357] 

1710 : 

[174] 



1 720 PRINT#w,HEX$(pc, 4)" "; 

(1 323 ] 

Programm BASPROG 


1730 bef="":|DIS,@bef,pc 

[1 592 ] 

100 •**•*•**•••••*»•* 

1528] 

1740 FOR z=0 TO PEEK(&8545)AND 3 

[1146] 

110 '* MCode-TRACER * 

11 366] 

1750 m=0:|PEK,©m,pc:pc=FNm(pc, 1) 

(2652 1 

120 '**************** 

1528] 

1760 PRINT#w,HEX$(m,2)" ";:NEXT 

(1010 ] 

130 '* (c) 1985 

[439] 

1770 s=INSTR(3,bef+" ") 

[2357] 

140 '* by Th. Fippl * 

[570] 

1780 PRINT#w,TAB(20)LEFT$(bef,s-1)TAB(24)M 

[2273 ] 

150'* 


IDSfbef,s) 


160 '* 6336 Solms * 

[593] 

1790 RETURN 

[555] 

170 '**************** 

[528] 

1800 : 

[174] 

180 ' 

[117] 

1810 MODE 2:BORDER 2:!SET 

[1927 ] 

1000 CLEARrDEFSTR a-k:DEFINT m-z 

12257] 

1820 FOR n=1 TO 5 

l862 ] 

1010 DEF FNp(m)=UNT(PEEK(m)+256*PEEK(m+1)) 

11163] 

1830 READ bez,pn,x1,x2,y1,y2 

(1255 ] 

1020 DEF FNh(m)=HEX$(FNp(m),4 ) 

[1 300] 

1840 GOSUB 2080:NEXT 

[1604 ) 

1030 DEF FNb(m)=KEX$(PEEK(m),2) 

[1 434 ] 

1850 PRINT#3," Z - Single Step 

[1 522 ] 

1040 DEF FNm(p,x)=UNT(p+x)AND &FFFF 

11 343) 

1860 PRINT#3," D - Disassemble 

[1835] 

1050 cmd="DZSA":GOSUB 1810 

[939 ] 

1870 PRINT#3," S - ROM Select 

[1 599 ] 

1060 PRINT#2 , " > 

[328] 

1880 PRINT#3," A - Alter Reg. 

[1589] 

1070 LINE INPUT#2,i:i=UPPER$(i) 

[1 91 0] 

1890 WINDOW#6,14,17,20,24:GOTO 1340 

[2086] 

1080 s=INSTR(1-4*(i=""),cmd,i) 

[21693 

1900 : 

[174] 

1090 ON s GOSUB 1120,1200,1340,1500 

(1 366) 

1910 LOCATE# 4,1 ,1 

[364 ] 

1100 GOTO 1060 

[31 1 ] 

1920 PRINT#4,"PC ”HEX$(pc,4)" IX "FNh{&84 

(2583) 

1110 : 

[174] 

FC); 


1120 p=0:INPUT#2,"Ausgabe per Drucker (j/n 

[2322] 

1930 PRINT#4,"SP "FNh(&8500)" IY "FNh(&84 

[3485 ) 

) / ^ 

1130 w=1-7 *(LOWER$(i ) ="j" ) 

[585] 

1940 PRINT#4,"HL "FNh(&84FA)" HL'"FNh(&84 

127351 

1140 GOSUB 1680 

[907 ) 

F4 ) ; 


1150 CLS#1:FOR n=1 TO 23 

[1194 1 

1950 PRINT#4,"DE ”FNh(&84F8)" DE'"FNh(&84 

[2262] 

1160 GOSUB 1720:NEXT 

[1097 ] 

F2 ); 


1170 i=INKEYS:IF i=""GOTO 1170 

[900] 

1960 PRINT#4,"BC "FNh(&84F6)" BC'"FNh(&84 

[1996 ) 

1180 IF i=CHR$(13)GOTO 1150 ELSE RETURN 

(2030 ] 

F0) 


1190 : 

[174] 

1970 PRINT#4,"A "FNb(&84EF )" I "FNb(&84EA 

(2417 ) 

1200 INPUT#2,"CALL als Sprungbefehl (j/n) 

[2629 ] 

)" ToS:"; 


"; i 


1980 PRINT#4 , "A 1 "FNb( & 84ED) 11 R "FNb( &84EB 

(3284 ] 

1210 POKE &8546 ,- (LOWER5> ( i ) < >"j " ) 

[1182] 

) 


1220 INPUT#2,"Blockbef. im Stepmodus (j/n) 

[3413 ] 

1990 LOCATE#4,3,11 

(476 ) 

"; i 


2000 PRINT#4,"SZ.H.PNC 

[6391 

1230 POKE &8547,-(LOWERS(i)< >"j") 

[1 677 ] 

2010 PRINT#4,"F "BIN$(PEEK(&84EE),8) 

[1 436] 

1240 GOSUB 1680:PRINT#1:w=1 

[1 268] 

2020 PRINT#4,"F'"BIN$(PEEK{&84EC),8); 

[17921 

1250 p=pc:GOSUB 17^0 

[1892 ] 

2030 st=FNp(&8500):CLS#6 

11503) 

1260 pc=p:GOSUB 1910 

[1 362] 

2040 FOR n=8 TO 0 STEP-2 

[887] 

1270 IF bef="???"THEN RETURN 

[1828] 

2050 PRINT#6,FNh(st+n); 

[1 466*3 

1280 i = INI<EY$:IF i = ""GOTO 1280 

[822 ] 

2060 NEXT:RETURN 

[940] 

1290 IF i< >CHR$(13)TUEN RETURN 

[2512] 

2070 : 

[174] 

1300 !TST,@pc,pc 

[979] 

2080 PAPER pn:PEN 1-pn 

[1241 3 

1310 IF PEEKU8541 ) =&FF THEN PRINT#1 

[1481 ) 

2090 LOCATE x1-1,y1-1 

[712] 

1320 GOTO 1250 

(361 ] 

2100 PRINT CHR$(150)CHR$(24)bez;CHR$(24)ST 

[4632] 

1 330 : 

[174] 

RINGS(x2-xl-LEN(bez) + 1,CHR$(154))CHR$(1 56) 


1 340 CLS#5 : PRINT#5 , "Werc/Bank 0/Bank 3"; 

[3357 ] 

2110 FOR y=y1 TO y2 

[1286] 

1350 PRINT#5,"255 RAM RAM 

(1148 1 

2120 LOCATE xl-1,y 

[636] 

1360 PRINT#5,"254 ROM RAM 

[2087 ] 

2130 PRINT CHR$(149) 

[1036 ] 

1370 PRINT#5,"253 RAM BASIC 

[929 ] 

2140 LOCATE x2+1,y 

[987] 

1380 PRINT#5,"252 ROM BASIC 

(1105) 

2150 PRINT CHR$(149) 

(1036) 

1390 PRINT#5,"0-251 RAM Exp.ROM"; 

[1999 ) 

2160 NEXT 

1350] 

1400 PRINT#5," (Discrom: 7]"; 

[2790] 

2170 LOCATE xl-1,y 

[636] 

1410 INPUT#2,"ROM Select Byte";st 

(2250] 

2180 PRINT CHR$(147)STRINGS(x2-x1+1 ,CHR$(1 

[2312] 

1 420 IF st <0 OR st>255 GOTO 1410 

(1 687 ] 

54))CHR$(153); 


1430 POKE &8544,st:n=MAX(st,&FB)-&F8 

[1874 ] 

2190 WINDOW x1,x2,y1,y2 

[1672] 

1 440 IF st<&FC THEN LOCATE#5,1 , 7 : PRINT//5 ,U 

13123] 

2200 CLS:WINDOW SWAP n 

(493) 

SING CHR$(24)+"###"+CHR$(24);st; 


2210 RETURN 

[555 ) 

1450 PRINT CHR$(23)CHR$(1); 

[1 919] 

2220 : 

[174] 

1460 FOR m=1 TO 15 STEP 2 

[1049] 

2230 DATA OUTPUT,1,40,79,2,24 

[986] 

1470 MOVE 152,n*16-m:DRAWR 143,0 

[843 ] 

2240 DATA INPUT,0,2,37,2,9 

[10801 

1480 NEXT:|SET:GOTO 1910 

[1792] 

2250 DATA Helpscreen,0,20,37,12,1 5 

[1 736 ] 

1 490 : 

[174] 

2260 DATA Z80 Register,1,2,17,12,24 

[1726 ] 

1500 INPUT//2 , "Register ";i 

[2280] 

2270 DATA ROM Select,0,20,37,18,24 

[903] 


60 cpc 
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Auf einen Blick, 
alles im Griff! 


Die CP/M-Referenzkarten bein¬ 
halten die wichtigsten und am häu¬ 
figsten benötigten Befehle und 
Funktionen von CP/M 2.2. Sie sind 
übersichtlich aufgebaut, in Gruppen 
unterteilt und ersparen somit das 
mühsame Blättern im Handbuch! 

Bei der Konzeption dieses Son¬ 
derheftes haben wir streng darauf 
geachtet, daß die Referenzkarten 
herausgetrennt und separat aufbe¬ 
wahrt werden können. 
Im einzelnen werden folgende Be¬ 
fehle und Funktionen übersichtlich 
dargestellt: 
CTRL-Befehle 
DDT-Monitorbefehle 
Stat-kommando 
Editor-Befehle 
Save-Befehle 
Direkt-Konsol-Befehle 
Farben und Modes 


Hinweis: 

Die Referenzkarten sind so an¬ 
geordnet, daß sie problemlos, durch 
Offnen der Heftklammern, zur Auf¬ 
bewahrung entnommen werden 
können! 
(SR) 


» CP/H 2.2 allgeseine Hinweise << 


MODE - Einstellung as CPC 


CTRLdO 

CTRLdl 

CTRLd2 


'entspricht 

'entspricht 


«ODE 

MODE 


'entspricht KODE 2 


(CTRLd = A d 'entspricht 
gleichzeitige* druecken 
der CTRL u. d-Taste) 


FÄRB - Einstellung as CPC 


CTRL \§ xy 
CTRL \A xy 
CTRL \] xy 


'entspricht PAPER 
'entspricht PEN 
'entspricht BDRDER 


.) xy Farbwahl (INK) 

> x = erste Farbe 

> y = zweite Farbe 


- 5 'Hellviolett 


(INK) 
8 = 0 
a= 1 
b= 2 
c= 3 
d= 4 
e= 
f= 6 

Hl 
1= ? 
j«10 
k*n 
1=12 
■=13 


Farbe 

'Schwarz 

'Blau 

'Hellblau 

'Rot 

'Magenta 


'Hellrot 

'Purpur 

'helles Magenta 

'Gruen 

'Blaugruen 

'Kisnelbau 

'Gelb 

'Keiss 


(INK) 

n=14 

o=15 

p=16 

q=l? 
r=18 
s=l? 
t=2ö 
u=21 
v=22 
w=23 
x=24 
y=25 
z=2 h 


Farbe 

'Pastellblau 

'Orange 

'Rosa 

’Rastelleagenta 

'Hellgruen 

'Seeqruen 

'helles Blaugruen 

'Liaonengruen 

'Pastellgruen 

'Pastel1-blaugruen 

'Hellgelb 

'Pastellgelb 

'leuchtend Neiss 


entsprichtFärhnuiiier +"P'clec 


'> Farbe entsprechend de* zugeord- 
’> neten Buchstaben waehlen 


_>ACHTUNG ! Erste und zweite Farbe gleich waehlen,kein blinken. 


I Beispiel : 
I PEN,BORDER 
I oder PAPER 
I blinkend 
I 


I- 

I Beispiel : 

I Farbwahl 
I wie unter 
I Basic 

I. 

I Beispiel: 

I Standard 
I Einstellung 
I bei CP/W 
I 


CTRL\81 = Bildschirs blinkt zwischen der 

Farbe Schwarz(8=0) und Selb(1=12) 
CTRL\acz = PEN blinkt zwischen der Farbe 

Rot(c=3) und leuchtend Neiss(z=26) 
CTRLlui = BORDER blinkt zwischen der Farbe 
Li*onengruen(u=21) u. Gruen(i=?) 


CTRL\8aaCTRL\axxCTRL)aaCTRLdl 


- MODE 1 
BORDER Blau 
“ PEN 
" PAPER 


Gelb 

Blau 


SETUP 'alle Fragen »it Y beantworten ausser Frage 2 I 
Sign - on string : I 
A ww A \a88 A ]wwCP/M2.2-A0istrad Consuier Electronics plc A J A M I 
Is this correct (Y/N) n’ENTER I 
Enter new sign-on strrng:_ A \888 A \aoo A ]88 A äi’enter I 
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VDOS 2.0 


Die Firma Vortex hat seit dem Erscheinen 
der Schneider Computer ständig neue 
Peripherie für diese Rechner entwickelt. 
Neben den bekannten 5 ^"-Laufwerken, 
der Speichererweiterung und der Fest¬ 
platte, ist nun ein neues Betriebssystem 
entwickelt worden - das VDOS 2.0. 

Da aber Vortex-Laufwerke schon über 
ein Jahr mit dem alten VDOS 1.0 ausge¬ 
liefert werden, bleibt die Frage offen, wie 
eben diese Besitzer in den Genuß des er¬ 
weiterten DOS kommen. Vortex bietet 
dazu einen Service: das DOS wird bei 
Einsendung des alten VDOS gegen die 
neue Version ausgetauscht. 


Einbau ohne Probleme 


Vor dem Einbau des neuen EPROMs 
muß das alte 44K CP/M wegen der. auf 
128 erweiterten, DIR-Einträge unter An¬ 
leitung des mitgelieferten, umfang¬ 
reichen Handbuches mit dem Dienst¬ 
programm SYSGEN um 256 Byte ver¬ 
kleinertwerden. Anschließend wird das 
alte VDOS-EPROM vorsichtig mit ei¬ 
nem kleinen Schlitzschraubenzieher 
aus dem Kontroller-Sockel herausge¬ 
hebelt und das neue VDOS eingesetzt. 
Trotz des relativ leichten Einbaus, ist 
unbedingt zu beachten, daß die Garantie 
des Rechners erlischt, sobald ein Fremd¬ 
eingriff vorgenommen wurde. Nach dem 
Einschalten des Rechners ist das neue 
Betriebssystem an einer veränderten 
Meldung zu erkennen. Ohne jedes Pro¬ 
blem werden die vorher beschriebenen 
Disketten unter Basic gelesen und je 
nach Bedarf auf bis zu 128 DIR- 
Einträge erweitert, was den Nutzungs¬ 
grad noch einmal erheblich verbessert. 
In diesem Zusammenhang wurde auch 
der CAT-Befehl modifiziert, indem 
mehr Informationen über die Vertei¬ 
lung des Speicherplatzes auf der 
Diskette ausgegeben werden. Will man 
unter CP/M arbeiten, so muß man ledig¬ 
lich von der verkleinerten Systemdis- 
kelte booten. 

Beim Arbeiten mit der Speichererweite¬ 
rung kann auch sofort das 62K CP/M 
geladen werden, welches ebenfalls bis 
zu 128 DIR-Einträge zur Verfügung 
stellt. Ebenso die als Laufwerk C an¬ 
sprechbare RAM-Disk. 


Hello Bas 


Eine tolle Idee ist das neue, sogenannte 
»Turn-Key-System«. Bei jedem Ein¬ 
schalten oder Rücksetzen des Com¬ 
puters wird erst einmal nachgeschaut, 
ob sich nicht ein File mit Namen "Hel¬ 


lo.bas" oder "Hello.bin" auf der Diskette 
befindet. In diesem File kann z.B. ein 
Programm stehen, welches wiederum 
ein anderes Programm aufruft und 
startet, ohne daß man einen Finger 
krumm machen muß. Ohne weiteres 
läßt sich auf diese Art und Weise auch 
CP/M booten. 


Relative Dateiverwaltung 


Wurde schon mit dem Betriebssystem 
BOS, das für die Verwaltung der 
Speichererweiterung unter Basic zu¬ 
ständig ist. eine relative Dateiver¬ 
waltung auf einer Pseudofloppy rea¬ 
lisiert (s.a. CPC Nr. 2/86), so kommen 
jetzt auch Schneider-Besitzer ohne 
Speichererweiterung in den Genuß des 
relativen Dateizugriffs. Unter BOS kön¬ 
nen die neuen VDOS2.0-Befehle natür¬ 
lich auch angesprochen werden. Um 
der speziellen Speicherstruktur bei re¬ 
lativen Dateien gerecht zu werden, sind 
eine ganze Reihe von zusätzlichen Be¬ 
fehlen vonnöten, die als RSX-Calls in 
das neue Betriebssystem eingebunden 
wurden. Mit dem Befehl FILES wird 
ein Datenpuffer für einen der 16 mög¬ 
lichen Kanäle einer Datei definiert. 
Dieser Kanal wird dann mit einem modi¬ 
fizierten OPEN-Befehl geöffnet, wobei 
auch die Angabe der aktuellen Länge 
eines Records erfolgt. Die tatsächliche 
Strukturierung des mit FILES geschaf¬ 
fenen Puffers, also eines Records, ge¬ 
schieht mit dem Befehl FIELD. GET 
liest anschließend einen beliebigen 
Record von der Diskette ein und über¬ 
gibt ihn entsprechend der FILES- 
Strukturierung an Stringvariablen. 
Beim Schreiben vollzieht sich die 
gleiche Prozedur, wobei an Stelle von 
GET der Befehl PUT gewählt werden 
muß. Die Befehle erinnern stark an das 
MBASIC von MICROSOFT (s.a. CPC 
Nr. 3/86. CP/M und seine Mög¬ 
lichkeiten), das ja gewissermaßen einen 
Standard für Basic darstellt. MBASIC 
faßt noch die Befehle FILES und 
FIELD zusammen und ermöglicht 
durch zusätzliche Befehle das Schrei¬ 
ben der Records als platzsparenden Bi¬ 
närcode, was an das FORMAT-freie 
Schreiben unter FORTRAN erinnert. 
Der Vorteil von relativen Dateien gegen¬ 
über den bekannten sequentiellen, 
liegt in der Tatsache, daß nicht die ge¬ 
samte Datei der Reihe nach gelesen 
werden muß, sondern ein beliebiger 
Datensatz über eine Record-Nummer, 
die mit dem Befehl GET bzw. PUT über¬ 
geben wird, bearbeitet werden kann. 
Das bringt natürlich erhebliche Zeit¬ 
vorteile mit sich und ermöglicht damit 
unter Basic eine absolut professionelle 
Programmierumgebung. 


Verbessertes ERA und REN 


Muß an einen RSX-Befehl eine Varia¬ 
ble vom Typ String übergeben werden, 
kann dies unter VDOS 2.0 auch direkt 


geschehen. Zum Löschen eines Files 
gibt es jetzt zwei Möglichkeiten: 


Dies gilt für alle RSX-Calls des Floppy- 
Controllers und der Speichererweite¬ 
rung. 


Abfangen von Diskettenfehlern 


Nach Eingabe des neuen RSX-Befehls 
DERROR können auch Diskettenfeh¬ 
ler vom Programm direkt abgefangen 
werden, ohne daß es zu einem Programm¬ 
abbruch kommt. Abhängig von der Art 
und Weise des eingetretenen Fehlers, 
kann das Programm eine entsprechende 
Verzweigung vornehmen. 

Im Zuge der relativen Dateiverwaltung 
sind außerdem eine ganze Reihe von 
neuen Fehlermeldungen hinzugekom¬ 
men. 


Die verschnellerte 
Bildschirmausgabe 

Durch eine Reihe weiterer RSX-Calls 
ist es unter anderem möglich, die Bild¬ 
schirmausgabe zu verschnellern. Der 
einzige Nachteil, der dabei in Kauf ge¬ 
nommen werden muß, liegt in der 
Tatsache, daß dabei die Window- 
Technik nicht mehr unterstützt werden 
kann. Dieser FAST-Befehl ist übrigens 
auch unter CP/M ablauffähig und 
kann zum Beispiel dazu verwendet wer¬ 
den, die Geschwindigkeit der Bildschirm¬ 
ausgabe unter WORDSTAR (s.a.CPC 
Sonderheft Nr. 2) zu verbessern. Sechs 
weitere Befehle unterstützen die Erzeu¬ 
gung von Grafik. Unter CP/M wird der 
Laufwerksmotor jetzt auch nach der 
»Schreibschutz«-Meldung ausgeschal- 
let, so daß die Diskette entfernt und/oder 
ausgewechselt werden kann. 


Der ROM-residente Monitor 


Der eingebaute Monitor, mit dem Ma¬ 
schinenspracheprogramme geladen, 
getestet und w ieder abgespeichert wer¬ 
den können, ist ein leistungsfähiger 
Tool, der sofort und ohne wesentlichen 
Speicherplatz zur Verfügung steht. Fr 
beinhaltet viele Funktionen, wie z.B. 
Disassemblieren. Anzeigen und An¬ 
dern von Speicher- und Registerinhal- 
tcn. Setzen von Breakpoints, Einzel- 
schrittausfiihrung etc. Der Monitor 
kann sowohl unter Basic als auch unter 
CP/M aufgerufen werden. Als Nachteil 
ist zu beachten, daß keine Labels verar¬ 
beitet werden können. Die Programme 
PARA und GRAFIKMASTER sind erst 
nach dem Patchen lauffähig. Dazu 
muß mit DDT ein kleines Programm :ii 2 
eingegeben werden. Zusätzlich erhält 
man dann auch noch eine kopierfähige 
Version von PARA. 

Dipl.-lng. H. Scheruhn 
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Mehr als nur vortllllllllll 

A- Z 

iiiP isketten-Dateinamen 


gleichbaren Effekt über die USER-Funktion erreichen - aber 
eben viel umständlicher!). 

Weitere Möglichkeiten: 

Ein anderes Problemchen tritt auf. wenn ich beim Program¬ 
mieren über eine kleine Teilroutine stolpere, die nicht so 
läuft, wie ich mir das vorgestellt habe, und die ich. isoliert 
vorn Rest, durchprobieren muß. 


Das Problem: 

Angenommen, ich finde in »Schneider CPC International« 
eine pfiffige kleine Routine, wie z.B. den deutschen Zeichen¬ 
satz, eine Funktionstasten-Belegung oder einen selbstdefi¬ 
nierten Zeichensatz für Sonderanwendungen. 

Meist gibt der Erfinder seinem Hilfsprogramm einen passen¬ 
den Namen wie DEUTZEI”, "FUNKTAST" oder "SDZ". 
Zwar kann ich dieses Programm dann als erstes auf die neue 
Diskette speichern, um es immer verfügbar zu haben; aber 
wenn ich erst einmal 20 andere Programme oder Dateien da¬ 
zu gespeichert habe, kann ich nur noch mit Mühe feststellen, 
welche Hilfsprogramme auf der Diskette vorhanden sind, 
weil etwa "SDZ" sich in der CAT-Liste irgendwo zwischen 
"RUNDLAUF" und "SUCHPIEK" unauffällig versteckt. 

Hin und wieder gibt jemand die Scheinlösung aus: 
»Speichern Sie das Hilfsprogramm unter dem Namen "A", 
dann erscheint es als erstes in der CAT-Liste.« 

Schön und gut - aber wenn ich je zwei oder drei solcher Hilfs¬ 
programme auf verschiedenen Disketten in verschiedenen 
Kombinationen brauche? 

Die Lösung: 

Das Ei des Kolumbus liegt darin, daß AMSDOS (also das 
Disketten-Betriebssystem der Schneider CPC-Typen) für Da¬ 
teinamen über die Buchstaben A - Z hinaus auch eine gar 
nicht so kleine Anzahl von anderen Zeichen akzeptiert, 
nämlich: 


# (ASCII 35) 
$ (ASCII 36) 
& (ASCII 38) 

' (ASCII 39) 
+ (ASCII 43) 
- (ASCII 45) 


0 (ASCII 48) 

1 (ASCII 49) 

2 (ASCII 50) 

3 (ASCII 51) 

4 (ASCII 52) 

5 (ASCII 53) 

6 (ASCII 54) 

7 (ASCII 55) 

8 (ASCII 56) 

9 (ASCII 57) 


T(ASCII 94) 
' (ASCII 96) 


Was bedeutet das praktisch? 

Mein selbstgestrickter deutscher Zeichensatz auf deutscher 
Tastatur heißt jetzt einfach '# ". Und der CAT-Befehl bringt 
ihn jetzt immer an der ersten Stelle der Liste, weil das Gatter 
' #" den niedrigsten ASCII-Wert überhaupt hat. den AMS¬ 
DOS akzeptiert! 

Andere Hilfsprogramme heißen jetzt "+TAST" (für bequemes 
Programmieren in BASIC) und "+TEXT” (hausgemachtes 
Textverarbeitungsprogramm - primitiv, aber im praktischen 
Gebrauch gut bewährt). Diese erscheinen nun auf der CAT- 
Liste gleich hinter #', noch vor den Programmen "AA" 
und "ABC". 

Wer es etwas vornehmer haben will, könnte ebensogut den 
deutschen Zeichensatz als "0" bezeichnen, die Funktionsta¬ 
sten mit "1“ und das Textprogramm mit "2“. Der Effekt wäre 
im Prinzip derselbe (streng genommen kann man einen ver- 


Was tun? Ich speichere das unfertige Hauptprogramm unter 
T ab (ASCII 94), so daß es auf der CAT-Liste hinter “ZYX" 
erscheint, und arbeite an der Teilroutine weiter. Muß ich auch 
diese zwischendurch speichern, heißt sie für mich vorüber¬ 
gehend .. Das erleichtert später, wenn man es geschafft hat. 

Jas Löschen. (Der sonst so nett vorgeschlagene Name 
"TEST" verkriecht sich ebenfalls gern in\fer Liste.) 

Affenstall läßt grüßen! 

Im Prinzip läßt sich AMSDOS auch noch auf einige andere 
Zeichen ein: 


@ (ASCII 64) 
C (ASCII 123) 
, (ASCII 125) 
(ASCII 126) 


Wer grundsätzlich mit der QWERTY-Tastatur arbeitet, kann 
diese genauso benutzen, wie die oben aufgeführten anderen 
Zeichen. 

Wer aber vorwiegend mit dem deutschen Zeichensatz ar¬ 
beitet. sollte von diesen letzten vier Zeichen die Finger lassen. 
Denn weil der Drucker normalerweise erwartet, daß die 
deutschen Sonderzeichen mit ganz bestimmten ASC II- 
Zeichen getauscht werden (auf den ASC TI-Werten 64.123.125 
und 126 liegen dann zum Beispiel ??. ä, Li. und ß), kann man 
die verdrängten ASCII-Zeichen nicht mehr erreichen. Das 
heißt, man kann schon, nur bringt die Bildschirmausgabe ei¬ 
nen dann doch durcheinander. 

Dies würde die gerade erst so schön übersichtlich gewordene 
CAT-Liste wieder unnötig verunstalten. 

Ansonsten wäre natürlich ein Dateiname wie ”@STALL" 
(sprich: Klammeraffenstall) schon für sich ein Spaß. 

Martin Lipka 

unter Mitarbeit von Thomas und Christoph Lipka 
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Data Media MAILORDER 


FORTH 

Abersoft (Nur Keyboardgebrauch) 

Das Programm ermöglicht, daß das in der benutzten Sprache lautende Programm in der Geschwindig¬ 
keit eines Maschinen-Code-Programms läuft. Das Programm enthält eine Vielzahl möglicher Hard¬ 
warekonfigurationen bezüglich des CPC 464 und ist leicht zu benutzen. 

Cassette Best.-Nr. 126 89,- DM 

DEVPAC - ASSEMBLER/DISASSEMBLER 

Hisoft (Nur Keyboardgebrauch) 

Ein brauchbares Programm für Z-80 Assembler/Disassembler, ein Editor- und Monitor-„DEVPAC". 
DEVPAC erlaubt Ihnen, ein Maschinen-Code-Programm zu entwickeln, mit sämtlichen Anweisungen 
und Bedingungssätzen im 40 oder 80 Zeichen-Modus. Es ermöglicht Assembler ohne Freiräume, 
Listenausdrucke etc. Der Disassembler/Monitor erlaubt die Besichtigung des Speicherinhalts im 80 
Zeichen-Modus. 


FOCUS (Data Media) rr~r-t~-L 

Programm zur persoektivischen Darstellung von 3D-Gratiken. Stellen Siez B ein Haus dar und verän¬ 
dern Sie durch Eingabe der W.nke! die Perspektive! 


Cassette Best.-Nr. 138 

79,- DM 


Diskette 3" Best.-Nr. 238 


Diskette 5V4“ Best.-Nr. 338 


Cassette Best.-Nr. 128 99,— DM 

PLATINENKIT (Data Media) 

Erstellt Layout von elektrischen Schaltungen. Ei nfachste Handhabung. Eingabe der Bauteile und Ver¬ 
bindungen vorn User Der Com- 


Diskette 3" Best-Nr. 228 


MULTI DATEI (Data Media) Ein universelles Dateiverwalturiysptogramm. 

Cass. Best-Nr 141 Disk. 3' Best.-Nr. 241 Disk. 5'A" Best.-Nr 341 

89,- DM 99,- DM 99- DM 

ROUTINEN, TIPS UND TRICKS (Data Media) 

Ca. 50 wichtige Programmroutinen für |eden Programmierer, wie z.B Sortieiroutine, Inkeyroutine, 
Diskettenroutine usw. 

Cass. Best.-Nr. 151 Disk. 3" Best.-Nr. 251 Disk. 5'A" Best.-Nr 351 

79,- DM 89,- DM 89,- DM 

GREDI (Data Media) 

Hillsprogramm zur Herstellung von Hires-Grafiken. 

Cass. Best-Nr 142 Disk, 3” Best.-Nr 242 Disk. 5'A" Best-Nr 342 

49- DM 59,- DM 59 - DM 


Cassette Best.-Nr. 140 

189,-DM 


Diskette 3" Best.-Nr. 240 

199- DM 


Diskette 5'A" Best.-Nr. 340 

199-DM 


SYNTHESIZER 


(Data Media) 

Neuartige Software! Ihr Schneider-Computer wird zu einem modernen Synthesizer. Die Klangfülle und 
Harmonie ist unübertroffen Einen Sonderprospekt können Sie mit Einsendung eines frankierten 
Rückumschlages anfordern. 

Cass. Best.-Nr. 154 Disk. 3" Best.-Nr. 254 Disk 5'A" Best.-Nr. 354 


Das bringt Ihren 
Schneider CPC 464/664 

auf Trab! 


Speichererweiterung 


5 1/4”-Laufwerk FDD 


- eigener Controller 

- Shmline Laufwerke (Teae 2x80 Tracks) 

-eingebautes Netzten 

- hohe Lautruhe 

I veränderbare Disc-Formate zum Lesen von Fremddiskellen 
umfangreiches deutsches Handbuch 

Anz. der Laufw Speicnerkapaz p re is 

16 MB 1598,-DM 

4 2298,-DM 

j2MB 2998,-DM 


- kompatibel zu CP/M 2 2, Schneider Basic 
-voll kompatibel zu Laufwerken FDD und FDI 

- eigenständiges Bank-Select 
erschließt die Welt der CP/M-Software 

- eingebauter Bank-Manager 

- einfache Montage 

Preise: Data Media Speichererweiterung: 

Best.-Nr. 6174 64KB Erweiterungsplatine, 

nicht aufrüstbar 

Best-Nr 6170 64 KB Erweiterung aufrustbar 

Best-Nr. 6171 i 28 K8 Erweiterung aufrüstbar 

Best-Nr 6172 256KB Erweiterung aufrüstbar 
Best-Nr. 6173 512KB Erweiterung kommen 


' p r o ° r f n e 1 ^' onc,les Speichermedium im gängii 

• optional mit 2. 3 oder 4 Laufwerken zu 
Laufwerk 

eigenständiges FDOS-Betriebssystem mi 
Befehlen 

wahlweise 40 oder 80 Tracks 
CP/M 2.2 kompatibel 

eingebauter Maschinensprache-Monitor au 
72 Directory-Einträge a 20 Zeichen Lange 
- eingebaute RS-232-Schnittstelle 


Data Media MAILORDER 


Bestellen Sie noch heute, Lieferung erfolgt umgehend! Zah 
lung per Vorkasse oder Nachnahme zuzügl. Porto- bzw. Nach 
nahmegebühr (Nachnahme ins Ausland ist nicht möglich). 

Weitere Artikel in unserem Gesamtkatalog, Bitte anfordern (2DM für Rückporto beilegen). 
Data Media GmbH -Mailorder- Ruhrallee 55, 4600 Dortmund, Tel.: (02 31) 12 50 71-3 
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Dokumentation 


Viele Anwender haben sieh ein CPC- 
System zugelegt, um für Zuhause ein 
preiswertes CP/M 2.2-System zu haben, 
auf dem sie bereits vorhandene Software 
nutzen können. Genau dies soll diese 
billige Softwarelösung ermöglichen. 

Dieses Programmpaket wurde auf ei¬ 
nem CPC 664 und einem APPLE II ent¬ 
wickelt. Es ist auch auf dem CPC 464 
lauffähig. Eine Kopplung kann mit die¬ 
sen Programmen an jeden CP/M 2.2- 
Rechner erfolgen, der über eine Cen- 
tronics-Schnittstelle und einen funk¬ 
tionierenden CP/M 2.2-Basic-Interpreter 
(hier M-Basic) verfügt, der eine relative 
Dateiverwaltung erlaubt. 



Die Idee 



Der CPC simuliert für den Host- 
Rechner einen Drucker, das heißt, er 
übernimmt die Daten, die der andere 
Rechner zum Drucker schicken will. 


Zu überwindende Schwierigkeiten: 

Solange nur ASCII-Zeichen im Bereich 
zwischen 32 und 127 übermittelt wer¬ 
den, bestehen fast keine Schwie¬ 
rigkeiten. Wenn der Host-Rechner 



Kopplung von CP/M 2.2-1 




über eine Hochsprache betrieben wird, 
muß man bedenken, daß die meisten 
Hochsprachen nach spätestens 132 
Zeichen einen Wagenrücklauf und ei¬ 
nen Zeilenvorschub senden (chr$(10) 
und chr$(13)). Dies ist bei Textdateien 
höchstens störend, bei Maschinencode 
führt es zu schwerwiegenden Fehlern. 

Weiterhin ist zu bedenken, daß auf vie¬ 
len Rechnern die ASCII-Zeichen zwi¬ 
schen 0 und 31 nicht richtig an den 
Drucker übermittelt, sondern im Rech¬ 
ner als Steuerzeichen interpretiert 
werden. 

Weiterhin ist zu bedenken, daß eine 
Maschinendatei nur relational eröffnet 
und ausgelesen werden kann, da einige 
Zeichen (z.B. Crtl-Z) in vielen Hoch¬ 
sprachen als Steuerzeichen inter¬ 
pretiert werden und dann zu uner¬ 
wünschten Ergebnissen führen. 
Außerdem ist zu bedenken, daß viele 
Rechner, wie der CPC selbst auch, nur 
über einen 7-Bit-Centronics-Ausgang 
verfügen, Maschinencode aber die vol¬ 
len 8 Bit eines Bytes nutzt. 


AHe Teile existieren aus der oben er- Test mit dem untenstehenden Programm 
wähnten Bauanleitung. Wenn alle Teile unternommen werden, 
zusammengefügt sind, kann der erste 
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Die Anschlüsse sind nach der obenstehenden Skizze herzustellen. 
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lechnern 


Hierfür wird das Druckerkabel des 
CPC mit dem neugebastelten Centro- 
nics-Eingang verbunden. 

Programm: SELBSTEST 

10 REM Programm Selbstest 
20 i=-l:WIDTH 255 
30 EVERY 10 GOSUB 130 
40 MODE 2 
60 b=&F8FD 
70 C-&F8FE 
80 steuer=&F8FF 
90 OLT Steuer,&X10000110 
100IF INP(c) AND 2 THEN 110 
ELSE 100 
110 a=INP(b) 

120 PRINT TAB(0);BIN$(a,8);” 
a;:GOTO 100 

130 IF INP(c) AND 2 THEN RETURN 
ELSE i=i+l:IF i >128 THEN i=0 
140 PRINT#8,CHR$(i);:RETURN 

Dieses Programm nutzt die Interrupt¬ 
fähigkeit des Schneider CPC. Alle 
zehn Takte gibt der Rechner, wenn mög¬ 
lich, ein Zeichen auf den Druckeraus¬ 
gang, die über den Port im Hauptpro¬ 


gramm wieder eingelesen werden. Da 
der CPC nur über einen 7-Bit-Drucker- 
ausgang verfügt, können nur Zahlen 
zwischen 0 und 127 übernommen wer¬ 
den. 

Der Portbaustein 8255 wird für dieses 
Programm im Mode 1 betrieben. Dies 
bedeutet, daß der Port A und der Port B 
als Eingangsports fungieren, der Port C 
für beide Steuerleitungen zur Verfügung 
stellt. Diese Steuerleitungen werden 
von dem 8255 selbst verwaltet. Für den 
Port B sind dies die Leitungen CI und 
C2, wobei der Port C von C0 bis C7 
reicht. Mit einem Signal auf C2 zeigt ein 
externes Gerät an, daß ein gültiges Da¬ 
tenbyte an Port B anliegt, dies ent¬ 
spricht dem STROBE-Signal des Cen- 
tronics-Druckerausgangs. An CI liegt 
solange ein High-Signal an, wie der 
Port B nicht in der Lage ist, ein Daten¬ 
byte anzunehmen. Erst wenn dieses Si¬ 
gnal auf Low liegt, kann ein neues Da¬ 
tenbyte auf den Port B gelegt werden. 
Dies entspricht dem BUSY-Signal der 
Druckerschnittstelle. So stellt der 8255 
intern sehr komfortabel eine Centronics- 
Eingangsschnittstelle zur Verfügung. 
Wenn alles funktioniert, sollte auf dem 
Rechner eine aufsteigende Reihe der 
Bitmuster zwischen 1 und 127 erschei¬ 
nen. 

Wenn bis hier alles funktioniert, so 
kann man an die Rechnerkopplung 
gehen. 


Software zur 
Rechnerkopplung 


a) Übertragung von ASCII-Dateien 

Aufbauend auf dem Programm Selbst¬ 
test kann man sich sehr schnell ein Pro¬ 
gramm zur Übermittlung von ASCII- 
Files schreiben. Dies könnte auf der 
Seite des CPC etwa so aussehen: 

10 REM Programm ASCII.EMP 
20 MODE 2 
30 b=&F8FD 
40 c=&F8FE 
50 steuer=&F8FF 
60 OUT Steuer,&X10000110 
70 IF INP(c) AND 2 THEN 80 ELSE 
70 

80 a=INP(b) 

90 IF a > 31 AND a < 127 THEN PRINT 
CHR$(a); 

100 GOTO 70 

Der Einfachheit halber gehe ich hier 
davon aus, daß auf dem Host-Rechner 
ein BASIC-Dialekt unter CP/M 2.2 zur 
Verfügung steht, in diesem Fall MBASIC 
(BASIC80). 

Zum ersten Test reicht folgendes Pro¬ 
gramm: 

10 REM Programm ASCII.SEN 
20 a$=INKEYS : IF aS=” ” THEN 20 
30 LPRINT a$; 

40 GOTO 20 


Bei der Kopplung der Rechner sollten 
Sie daran denken, daß das Druckerka¬ 
bel nicht länger als 2 m sein sollte, da 
man sonst mit einer steigenden Fehler¬ 
rate in der Übermittlung rechnen muß. 
Wenn die Verbindung hergestellt ist 
und beide Programme gestartet wurden, 
muß jedes Zeichen, das man auf dem 
Host-Rechner schreibt, auf dem Bild¬ 
schirm des CPC erscheinen. 



- P 


Übertragung von 
Maschinencode-Dateien 


bl) Theorie 



Jetzt soll ein Programmpaar vorge¬ 
stellt werden, das zur Übertragung von 
Maschinencodedateien geeignet ist. Es 
ist vollständig auf Sicherheit ausgelegt 
und deshalb nicht sehr schnell. 
Folgende Probleme und ihre Lösung sol¬ 
len besprochen werden: 

1. Die meisten Rechner besitzen nur eine 
7-Bit Druckerschnittstelle. Maschi¬ 
nencode benutzt alle Bytewerte zwi¬ 
schen 0 und 255. Deshalb wird in 
diesem Programmpaket jedes Daten¬ 
byte in zwei Nibbles (4-Bit-Gruppen) 
übertragen, Bit 8 wird nicht genutzt, so 
daß sowohl 8-Bit-Schnittstellen oder 
7-Bit-Schnittstellen benutzt werden 
dürfen. 



2. Die Steuerzeichen mit den ASCII- 
Werten 0 bis 32 werden nicht immer 
richtig an den Drucker übergeben, der 
ASCII-Wert 27 dient auf den meisten 
Systemen z.B. zum Einleiten einer 
Steuersequenz für den Drucker. Das 
Programm umgeht diese Schwierig¬ 
keit, indem das Bit 8 permanent auf 
HIGH gesetzt wird. Dadurch können 
keine Stcuerzeichenwerte im Über¬ 
mittlungsprotokoll Vorkommen. 


3. Die Datenübeitragungssicherheit ist 
bei Parallelschnittstellen relativ 
schlecht. Zum einen ist der Span¬ 
nungsunterschied zwischen logisch 0 
und logisch 1 viel geringer als bei V24- 
Schnittstellen, zum anderen ist die 
Abschirmung von zehn Leitungen ge¬ 
gen Fremdspannungen schwerer zu 
bewerkstelligen, als bei zwei Leitungen 
wie bei seriellen Schnittstellen. 

b2) Das Übertragungsprotokoll 

Übertragen wird die Datei in Blöcken 
von je 128 Bytes. Da auf Grund der 
Diskettenverwaltung von CP/M jede 
Datei aus einer ganzen Zahl von Grup¬ 
pen von 256 Bytes besteht, ist im voraus 
die Anzahl von Blöcken zu ermitteln. 





am 

stsm- 


ffl 





Der Block wird in vier Unterblöcke ein¬ 
geteilt, das entspricht also Gruppen von 
32 Informationsbytes. 

Jedes dieser 32 Informationsbytes wird 
in zwei Nibble (4-Bit-Gruppen) zerlegt 
und dann gesendet. Zu diesen zwei 


Sonderheft 2 ’86 


cpc 69 


Hardware 




















Hardware 






Bytes kommt noch die Adresse im Un¬ 
terblock, die führend in einem Byte 
übermittelt wird. 

Am Anfang und am Ende eines Unter¬ 
blocks wird ein Anfangs- bzw. ein 
Endebyte als Kennzeichen gesendet. 
Hierbei dient das Anfangsbyte gleich¬ 
zeitig als Synchronisationsbyte. Das 
gleiche gilt für den Anfang und das 
Ende eines Blocks. Insgesamt werden 
32 Blöcke als eine Gruppe übermittelt, 
auch dafür gibt es ein Eingangs- und ein 


Ausgangskennzeichen. Schließlich gibt 
es noch ein »Ende der Datei«-Kennzei- 
chen. 


Das Sendeprogramm: 


In den Data-Zeilen werden die genauen 
Namen der zu übertragenden Dateien 
abgelegt, danach die Gesamtanzahl der 
128 Byte-Blöcke (mit dem STAT- 


So sieht das Protokoll für einen Block aus: 
Bit 8 ist immer high (=1): 


Byte (Dual. > 
101 1 01.00 

1 ou 

1100 

1000 . „ 

1001 „ „ „ „ 


HEX 

B4 

A .. 

Ü .. 


1100 „ 


J. 000 „ 


U5W 


1 o 11 1 1 1 1 


9 


Ü 


BF 


Bedeutung 

An f ang s k e n n z e i c h e n 
u n d 8 y n c h r o n i s a t i o n 

A n f a ng Unte rb1ock 1-4 

Ad resse des In f orma- 
tionsbyt es im Un t&r — 
block 1-32 

L o w N i b b 1 e I n f o r m a - 
t i onsbyt e 

H i g h N i b b 1 e I n f o r - 
mationsbyt e 

Adresse des Informa- 
tionsby t es im Unter- 
block 1—32 
L o u.i M i b b 1 e I n f o r m a -~ 
t i o n s b y t e 


Ende der Datei Kenn- 
zeieben 


Punkte kennzeichnen variable Werte, Werte werden ausschließlich im Low 
die durch die Adresse oder das Infor- Nibble übergeben, 
mationsbyte geliefert werden. Diese 


Kommando zu erfahren) und der Start¬ 
punkt. Es ist damit auch möglich, eine 
sehr lange Datei in mehreren Teil¬ 
stücken zu überspielen. Diese Datei 
wird als relative Datei eröffnet. Die 
Variable recordS beinhaltet die 128 In¬ 
formationsbytes. Je 32 128 Byte-Blöcke 
werden zusammen übertragen, dann 
macht das Sendeprogramm eine Pause, 
um dem CPC das Ausscheiden der re¬ 
dundanten Bytes und das Auslagern 
der Informationen auf Diskette zu 
ermöglichen. 

Das eigentliche Senden. d.h. "Drucken”, 
der Zeichen verläuft in mehreren ge¬ 
schachtelten Schleifen. Die äußerste 
Schleife (Variable Q) bestimmt die zu 
sendenden 32 Blöcke, die Variable K 
zeigt an, welcher Unterblock bearbeitet 
wird, die Variable J beinhaltet die 
Adresse des gerade aktuellen Infor¬ 
mationsbytes in diesem Unterblock. 

Mit der Variablen Rim Druckunterpro¬ 
gramm in Zeile 420 wird festgelegt, wie 
oft jedes Byte auf dem Drucker ausgege¬ 
ben wird. Normalerweise reicht der 
Wert2 vollkommen aus, beimirlief das 
Programm auch ohne Wiederholung 
fehlerfrei. Nach dem Abschluß der 
Übertragung wird das Ende-Zeichen 
gesendet, dann geht das Programm in 
eine Warteschleife, bis der CPC die Da¬ 
tei ausgewertet hat (abhängig von der 
Dateilänge). Nun kann die nächste Da¬ 
tei gesendet werden (in den DATA- 
Zeilen festgelegt). Ist hierbei die Länge 
der zu sendenden Datei (Variable 
Zahll) =0, dann bricht das Programm 
ab. 

Die Programme sind ganz auf Übertra¬ 
gungssicherheit ausgelegt. Es ist mög¬ 
lich, mehrere Programme hintereinan¬ 
der zu übertragen, ohne daß dafür 
weitere Anweisungen durch den Bedie¬ 
ner erforderlich sind. Durch die Wahl 
geeigneter Verzögerungsschleifen ist es 
theoretisch sogar möglich, ohne das 
Busy-Signal zu vollständigen Übertra¬ 
gungen zu kommen. Diese Verzöge¬ 
rungsschleifen müssen an den betref¬ 
fenden Rechner angepaßt werden. 


Das Sendeprogramm für den Host - Rechner, hier in 
Mbasic für APPLE II: 

10 DATA ws.com [5721 

19 DATA ende [510] 

20 REM Empfaengerprogramm 7-bit Centronics [2462] 
30 portb=&F8FD:portc=&F8FE:ports=&F8FF:REA [3874] 
D titel$ 

40 IF titel$="ende" THEN END [1440] 

50 DEFINT a-m:M0DE 2 [707] 

60 OPENOUT "zahlen.zei" [999] 

70 OUT ports,134 Initialisieren des Port [4348] 
s auf Mode 1 

80 ' [117] 
90 REM hier Einsprungpunkt der Schleife [32041 
100 DIM a(15000 ) [372 ] 

110 REM Warteschleife zum Aufsetzen 12876) 

120 IF INP(portc) AND 2 THEN 130 ELSE 12 [3200] 
0 

130 dummy=INP(portb) OR 128 :IF dummy=18 [3659] 
0 THEN 120 

140 IF dummy=191 THEN GOTO 280 [2289] 


' Einlesen des Blocks 
a(1)=dummy:FOR i=2 TO 15000 

IF INP(portc) AND 2 THEN 180 ELSE 17 


150 
160 
170 
0 

180 a=INP(portb) OR 128:a(i)=a:IF a(i)=1 (2924) 

81 THEN 210 
190 NEXT 

200 'Ausscheiden der redundanten Bytes 
210 CLS:IF a(i)=181 THEN a(i)=180:IF a(i-1 
)=181 THEN a(i-1)=180 

220 ende=i:altbyte=a(1) :k=2 :PRINT#9,CHR$ 

(a(1 )); 

230 FOR j =2 TO ende 

240 IF a(j)=altbyte THEN GOTO 260 

250 PRINT09,CHR$(a{j));:altbyte=a(j):k=k+1 
: IF a(j ) = 180 THEN PRINT09,CHR$(13); 

260 NEXT j 

270 PRINT "bitte jetzt weiter":GOTO 120 


[2304] 
[2481 ) 
[2376] 


[350 ] 
[5983] 
[4341 ] 

£4492] 

[848] 
[1797 ] 
[5814 ] 

[466] 

[2737] 


280 PRINT#9,CHR$(1 91 );:ERASE a (1842) 

290 CLOSEOUT:CLOSEIN:OPENIN "zahlen.zei":0 [5848] 
PENOUT titel$:WIDTH 255:endeflag=0 
300 blockzaehler=0:DIM b(1000) (2327) 

310 DEF FNhnibble$(x)=LEFT$(HEX${x,2),1) [1728] 
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320 DEF FNlnibble$(x)=RIGHT$(HEX$(x, 2 ) , 1): [3208} 

DEF FNwert(x$)=VAL{"&"+x$) 

330 blockzaehler=blockzaehler+l :DIM wert$( [5045] 
128):FOR i=1 TO 128:wert$(i)="??" :NEXT i 
340 i=1 5545] 

350 IF EOF THEN 420 [78] 

360 LINE INPUT#9,dummy$ [2161] 

370 FOR j=1 TO LEN{dummy$) [1490] 

380 b(i)=ASC(MID${dummy$,j,1)):IF b(i)=180 [3954] 
THEN 420 

390 IF b(i)=191 THEN endeflag=1 [1479] 

400 i=i + 1:NEXT j [688] 

410 GOTO 350 [470] 

420 ende=i :i=0 [1242] 

430 i=i+1 [307] 

440 IF b(i)=180 THEN GOTO 530 [12311 

450 IF FNhnibble$(b(i))="A" THEN offset=(F [5948] 
Nwert(FNlnibble$(b(i)>)*32) — 32:GOTO 460 
ELSE 430 

460 ' [117] 

470 i=i+1:whn$=FNhnibble$(b(i)) [1926] 

480 IF whn$="B" THEN GOTO 440 [2530] 

490 IF whn$="C" OR whn$="D" THEN 500 ELSE [3136] 
470 

500 adr=offset+(FNwert(FNlnibbleS(b(i))))+ [3385] 
((b(i) AND 16 ) + 1 ) 

510 IF FNhnibble$(b(i+1))="8" AND FNhnibbl [6790] 
e$(b(i+2))= "9" THEN wert$(adr)=FNlnibble$( 
b(i + 1 ))+FNlnibble$(b(i+2)):i=i+2 :GOTO 470 


520 GOTO 470 

530 REM hier einsprur.g fuer Auswertung 
540 FOR i=1 TO 128 

550 IF INSTR(1,wert$(i),"?")>0 THEN 560 EL 
SE PRINT#9,CHR$(FNwert(wert$( i )));:GOTO 66 
0 

560 IF endeflag=1 THEN 720 
570 PRINT "Im Block ";blockzaehler;" : " 
580 PRINT:PRINT TAB(1);"Position ";TAB(20) 
;"Wert" 

590 IF i<4 THEN GOTO 630 

600 PRINT TAB(1 );i-3;TAB(20);Wert$(i — 3) 

610 PRINT TAB{1);i—2;TAB(20);Wert?(i — 2) 

620 PRINT TAB(1);i — 1;TAB(20);Werts(i — 1 ) 

630 PRINT TAB(1);i;TAB(20);Wert$(i) 

640 INPUT "Neuer Wert ";wert$(i) 

650 GOTO 550 
660 NEXT i 

670 PRINT STRING$(80,32):PRINT "Der Block 
"jblockzaehler;" : ":PRINT:FOR i = 1 TO 128 


[454 ] 
[2487] 
[823] 
[4196] 


[1 584 ] 
[3096 ] 
[3347] 

[1118] 
12299 ] 
[2510] 
[2260] 
[1667 ] 
[2327] 
[431 ) 
[471 ] 
[7254] 


680 IF FNwert(wert$(i))<32 OR FNwert(wert$ [4045] 
(i))>128 THEN a$="." ELSE a$=CHR$(FNwert(w 
ert$(i))) 

690 PRINT a$;:NEXT [765] 

700 ERASE wert$ [553] 

710 GOTO 330 [506] 

720 CLOSEOUT:CLOSEIN:endeflag=0 :|ERA,"b:* [4272] 
.zei":ERASE b,wert$:GOTO 30 


Das Programm muß eine hohe Daten¬ 
sicherheit gewährleisten, da ein fal¬ 
sches Byte in einer Maschinencode- 
Datei ein ganzes Programm wertlos 
machen kann. Dies wird durch zwei 
Dinge gewährleistet. Zum einen er¬ 
kennt das Empfangsprogramm kleine 
Übertragungsfehler durch den Aufbau 
des Protokolls selbst, zum anderen wird 
jedes Informationsbyte zweimal über¬ 
tragen. 


Das Empfangsprogramm 


Die Aufnahme der Zeichen erfolgt wie 
in dem Programm ASCII-EMP.,das Bit 
8 wird durch eine OR-Verknüpfung 
permanent auf logisch 1 gesetzt. Sobald 
das erste Zeichen, das ungleich 180 (= 


Synchronisationsbyte und Anfangskenn¬ 
zeichen) ist, eintrifft, geht der CPC in eine 
Aufnahmeschleife, die erst nach Auf¬ 
nahme des Zeichens 181 (= Ende einer 
32-Blockgruppe) wieder verlassen wird. 

Danach wird das Array (Variable a%) 
auf redundante Bytes geprüft und dann 
weggeschrieben. Jetzt geht der Rechner 
wieder in die Synchronisationsschleife. 

Trifft hier das Ende-Kennzeichen ein, so 
wird die Datei "zahlen.zei” ausgewertet. 

Hierfür wird eine Datei auf den Namen 
der zu erzeugenden Datei angelegt (Aus¬ 
gabedatei), als Eingabedatei fungiert 
"zahlen.zei”. 

Die Daten werden in einer Schleife ein¬ 
gelesen und ausgewertet, deren Ab¬ 


bruchbedingung das En de-Kennzeichen 
(EOF) der Eingabedatei ist. 

Die Datenbytes werden in ein High- und 
ein Low-Nibble zerlegt, das High-Nib- 
ble enthält die Steuerinformation nach 
dem Protokoll, so daß eine eindeutige 
Zuordnung möglich ist. 

Bei Übertragungsfehlern fragt das Pro¬ 
gramm nach dem richtigen Wert unter 
Angabe des Übertragungsblocks und 
der Adresse im Block. Den richtigen 
Wert kann man dann auf dem Host- 
Rechner mit Hilfe von DDT.COM fest¬ 
stellen. Nach der Auswertung wird die 
Datei "zahlen.zei" gelöscht und die 
nächste Datei kann übertragen wer¬ 
den. 

H. Jakstatt 
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Das Empfangsprogramm für den Schneider CPC: 

3 REM Programm PORTPRO.SEN 

4 DATA WS.COM,136,1 
20 DATA ENDE,0,0 

30 HOME 

40 READ TITELS,ZAHL,ZAHL1 

50 PRINT:PRINT TITELS VON";ZAHL1;"BIS" 

; ZAHL 

60 IF ZAHL=0 THEN END 

70 ZEIT=1 : WIDTH 255:ENDE=28000 

80 OPEN "R",1,TITEL$ 

90 FIELD 1,128 AS RECORDS 
100 ANFANG=ZAHL1 
110 ZAHLEND=ZAHL1+31 

120 IF ZAHLEND>= ZAHL THEN ZAHLEND= ZAHL : 
ENDEFLAG=1 

130 FOR Q=ZAHL1 TO ZAHLEND 
140 GET 1,Q 

150 ZEICHENS 80:GOSUB 420:GOSUB 420:GOSUB 
420 

160 FOR K=0 TO 3 

170 IF K=0 AND Q=ANFANG THEN ZEIT=100 ELSE 
ZEIT=1 

180 OFFSET=K *32 

190 ZEICHEN=(K+1) OR 160:GOSUB 420 
200 FOR J=1 TO 32 

210 BYTE=ASC(MID$(RECORDS,J+OFFSET,1)) 

220 HEXBYTES=RIGHT$("00"+HEX$(BYTE),2) 

230 LBYTES=LEFT$(HEXBYTES,1) 



240 

HBYTE$=RIGHT$(HEXBYTES,1) 

[1844 ] 

[2998 ) 

250 

ADR=(J-1) 

[558 ] 

[1010] 

260 

ZEICHEN=ADR OR 192:GOSUB 420 

[1 627] 

[358] 

270 

ZEICHEN=VAL{"&H"+LBYTE$) OR &80:GOSUB 

[2852 ] 

[306] 

420 



[2764] 

280 

ZEICHEN=VAL("&H"+HBYTE$) OR &90:GOSUB 

[3311 ] 

[4302] 

420 




290 

NEXT J 

[370 ] 

[1135] 

300 

ZEICHEN=(K+1) OR 176:GOSUB 420 

[2093 ] 

[1382] 

310 

NEXT K 

[373] 

[305] 

320 

PRINT Q; 

[5601 

[982] 

330 

A=FRE("") 

[1 439 ] 

(641 ] 

340 

NEXT Q 

[367] 

[1156] 

350 

ZEICHENS 81 : GOSUB 420 

[1717] 

[1986] 

360 

ZAHL1=ZAHL1+32 

[1111 1 


370 

FOR 1=1 TO ENDE : IF INKEY$<>"" THEN 3 

[3948] 

[1804 ] 

80 ELSE NEXT I 


[172] 

380 

ENDE=28000 

[235] 

12614] 

390 

IF ENDEFLAG=1 THEN GOTO 400 ELSE GOTO 

[1737] 


110 



[1 299] 

400 

ZEICHENS 91 : FOR 1 = 1 TO 10 : GOSUB 42 

[2724] 

[1881 ) 

0 : 

NEXT I 



410 

GOTO 430 

[462] 

[940] 

420 

FOR R=1 TO 2: LPRINT CHR$(ZEICHEN);:FO 

[3462] 

[1342] 

R S = 1 TO ZEIT:NEXT S:NEXT R:RETURN 


[738] 

430 

ENDEFLAG=0 : BLOCK=ZAHL-ANFANG 

(2021 ] 

[816] 

440 

BLOCK1 = INT ( BLOCK/1 6 ) +1 

[873] 

[1693 ] 

450 

CLOSE 

[290 ] 

[1374 ] 

460 

FOR 1=1 TO (BLOCK1*100000 i):NEXT I 

[2683 ] 


m 
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B 

für 464-664-6118 

Wer hat noch nicht die Erfahrung ge¬ 
macht, daß ein Programm auf Diskette 
schneller gelöscht ist, als man denkt? 

Nun geht die Suche nach einer anderen 
Kopie dieses Programms los. hat man 
sie, ist es gut, wenn nicht, dann Ade 
schönes Programm. 

Um so eine Situation zu umgehen, gibt 
es zwei Möglichkeiten: 

1-Von jedem Programm auf Diskette 
eine Backupkopie auf eine zweite 
Diskette ablegen. 

(Preis pro Diskette ca. 15,- DM.) 

2. Von jeder Diskette eine Backupkopie 
auf Kassette erstellen. 

(Preis pro Kassette ca. 3,50 DM.) 

Während der Vorteil der Diskette als 
Backup-Speichermedium in der Schnel¬ 
ligkeit und Datensicherheit liegt, ist er 
bei der Kassette im Preis. So dauert eine 
Kopie einer ganzen Diskettenseite bei 
2800 Baud ca. 12 Minuten (möglich sind 
3600, wobei jedoch nur absolut hoch¬ 
wertiges Bandmaterial verwendet wer¬ 
den sollte). Dies fällt jedoch kaum ins 
Gewicht, da das Programm selbständig 
zwischen Tape und Disc umschaltet 
und somit unbeaufsichtigt laufen 
kann. 

Voraussetzung dafür ist ein Kassetten¬ 
recorder mit Kopfhörer- bzw. Laut¬ 
sprecherausgang, sowie einem Mikro¬ 
foneingang. Der Kopfhörerausgang 
wird mit den Pins 2 und 4 der Kassetten¬ 
anschlußbuchse an der Rückseite Ihres 
Computers verbunden; der Mikrofon¬ 


eingang mit den Pins 2 und 5. Wenn 
keine externe Motorsteuerung für den 
Kassettenrecorder vorgesehen ist, kann 
man sich wie folgt behelfen: 

- Kassettenrecorder aufschrauben 

- eine der Zuleitungen vom Kasset¬ 
tenrecorder zum Kassetten moto r auf- 
trennen 

- die beiden Enden der durchtrennten 
Leitung mit den Pins 1 und 3 der Kas¬ 
settenanschlußbuchse verbinden. 

Die Anschlußbelegung und Pin-Num¬ 
mern der Kassettenanschlußbuchse 
finden Sie im Handbuch, Kapitel 7, 
Seite 37. 

Nun zum eigentlichen Programm: 

Nachdem das Programm mit RUN ge¬ 
startet wurde, erscheint auf dem Bild¬ 
schirm das Hauptmenue. Der Bild¬ 
schirm ist in zwei Bereiche gegliedert 
(immer): 

Ein Ausgabebereich (für Catalog usw.) 
und ein Bereich, in dem der Computer 
dem Benutzer Anweisungen gibt. 

Vom Hauptmenue aus sind folgende 
Punkte auswählbar: 

(I) Diskette auf Kassette abspeichern 

Der Catalog der Diskette und ihr For¬ 
mat wird auf dem Bildschirm ausgege- 
ben, dann fragt der Computer, ob die 
Diskette wirklich auf Kassette abge¬ 
speichert werden soll. Darauf antwortet 
man entweder mit Ja (="J”) oder Nein 
(="N"). Bei "N" findet man sich im 
Hauptmenue wieder, bei "J” wird zuerst 
der Catalog (was zur späteren Identifi¬ 
zierung der Kassette dient) und dann 
die gesamte Diskette aufBand gesch rie- 
ben. 

(2 ) Kassette auf Diskette zurückschreiben 

Der Catalog wird eingeladen, dann 
wird abgefragt, ob man die Kassette wirk¬ 
lich auf Diskette zurückschreiben will. 
Bei "N" geht es zurück ins Hauptme¬ 


nue, bei ”.1” wird die Kassette auf 
Diskette zurückgeschrieben. 

(3) Kassettenmotorsteuerung 

Hier kann man den Kassettenmotor ein- 
bzw. ausschalten, ohne daß Daten gele¬ 
sen bzw. geschrieben werden. Hierbei 
bedeutet "A" gleich Motor an, ”B" 
gleich Motor aus und "C" gleich zurück 
ins Hauptmenue. 

(4) Baudrate für Speichern festlegen 

Hier kann die Baudrate zum Abspei¬ 
chern auf Diskette zwischen 800 und 
3600 Baud gewählt werden. Im Haupt¬ 
menue wild die aktuelle Baudrate 
angezeigt. 

(5) Diskette catalogisieren 

Entspricht dem CAT-Kommando im 
Basic, wobei jedoch zusätzlich noch 
das Diskettenformat angezeigt wird. 

(6) Programm beenden 

Beendet das Programm 

Wenn eine Schreib- bzw. Leseoperation 
von/auf Diskette ausgeführt werden 
soll, jedoch keine Diskette im Laufwerk 
A liegt, erscheint die Fehlermeldung 
"Keine Diskette in A. bitte einlegen. 
dann (ENTER)", wenn die Diskette be¬ 
schrieben werden soll. Ist aber die 
Diskette schreibgeschützt, erscheint die 
Fehlermeldung "DISKETTE ist schreib¬ 
geschützt, Schutzzunge verschieben, 
dann (ENTER)". 

Im ersten Fall sollte man eine Diskette 
einlegen, dann die (ENTER)-Taste be¬ 
tätigen. Im zweiten Fall die Diskette 
entnehmen, die rote Schutzzunge am 
oberen Diskettenrand so verschieben, 
bis ein roter Punkt links oben auf der zu 
beschreibenden Diskettenseite erscheint. 

Sollte beim Einlesen der Kassette ein 
READ ERROR auftreten, so muß man 
die Diskette noch einmal, jedoch mit 
kleinerer Baudrate abspeichern. Sollte 
das immer noch nichts nützen, so ist zu 
empfehlen, qualitativ bessere Kassetten 
zu verwenden. Peter Rühl 


Belegung der Kassettenbuchse 
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Leitung für Motorsteuerung des Computers 
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Masse 

Lautsprecher oder 
Kopfhörerausgang 

Masse 

Mikrofon ei n gang 



Motorsteuerung Recorder 
(Zuleitung zum 
Motor des Kasset¬ 
tenrecorders) 


Kassetten motor 
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Anschlußbelegung für Klinken- und Lautsprecherstecker 



Lautsprecherstecker 


Masse 



Signal 




mm 


DISC-TAPE-BACKUP 
Ruehl 


20 MEMORY 12999:MODE 2:WINDOW#1,1,80,1,22: 
WINDOW#2,1,80,23,25:BORDER 1 :INK 0,1:INK 1 
,24:PAPER#1,C:PEN#1,1: PAPER«, 1:PEN#2,0:WI 
NDOK SWAP 0,1: CLS«: CLS 

30 SPEED WRITE 0:kass=1000:catalog=89000:d 
isc=*90 3A:befeh1 =89030:ram=89035:track=890 
33:sector=§9034:offset=89032:buffer=13002: 
lowbyte=&9066:highbyte=&9067:cspeed=89065: 
cwork-59077:tape=«906E:GOSUB 10000 
1000 ' 

1010 ’ ••*•« HAUPTMENUE 
1020 ' 

1030 CLS :CLS«: PRINT CHR$(150);STRINGS(78, 

154);CHR$(156);CHR$(149);STRINGS(27,32);"■ 
DISC-TAPE-BACKUP *":STRINGS(31,32>;CHR$(1 
49);CHR$(149|; 

1040 PRINT" Version 1.0 == = = 

================ ":CHSS(164|;" 1966 

by P, Ruehl " ;CHRS11 49 ) ;CHR$(1 47);STR 

INGS<76,1S4);CimS(lS3) 

1050 I.OCATE 18,7:PRINT" (1 i Diskette auf K 
assette abspeichern":LOCATE 18,9:PRINT"121 
Kassette auf Diskette zurueckschreiben": 
I.OCATE 1 B ,11 .-PRINT" (3 1 Kassettenmotorsteu 
erung“:LOCATE 18,13:PRINT"(41 Baudrate fu 
er Speichern festlegen" 

1060 LOCATE 13,15:PRINT"[5) Diskette Cata 
logisieren":LOCATE 18,17:PRINT"161 Progra 
mm beenden":LOCATE 11 ,20:PRIN?"Die Singest 
'eilte Schreibqeschwindigkeit betraegt ";ka 
ss;" Baud.":LOCATE#2,21,2:PRINT#2,"Druecke 
n Sie die gewuenschte Zahl" 

1070 abfr$=INKEY$:IF abfr$ = "" TUEN 1070 EL 
SE IF ASC(abfr$)<49 OR ASC(abfr$>>54 TUEN 
1070 

1080 abfr=<ASC(ab£r$)>-48:ON abfr GOTO 200 

0,3000,5000,4000,9000,8000 

1090 GOTO 1070 

2000 ' 

2010 ' *•••> CATALOG ABSPEICHERN •*••• 
2020 ' 

2030 CLS: CLS«: GOSUB 11000:IF nodisc=0 THE 
N GQSUB 12000 

2040 IDISC.IN: :TAPE.OUT:CAT:forinat-PE£K(SA 
89F)-1:IF formst« TUEN PRINT"IBM - Format 
” ELSE IP £ormat-&C0 TUEN PRTNT"DATA-OHLY 
- Format" ELSE IF format=*40 THEN PRINT"CP 
/M - Format" ELSE PRINT"RANDOM - Format" 
2050 LOCATE42,16,2:PRINT#2,"Wirklich auf K 
7.SSETTE schreiben (Jla oder (N)ein ?" 

2060 abfrS=UPPERS(INKEYS):IF abfrS«>"J" AN 
D abfr$ < >"N" OR abfr$="" THEN 2060 
2070 IF abfr$="N" THEN 1000 
2000 CLS#2: LOCATE«, 21 , 2: PRINT« , "Druecken 
Sie REC und PLAY, dann IENTERI" 

2090 WHILE INKEYS« >CHRS (13) : WEIJD 

2100 CLS«:CALL catalog:LOCATE«,27,2:PRIN 

T«, "CATALOG wird abgespeichert" 

2110 bytes=PEEKI13000 )-*256 *PESK( 1 3001 ) 

2120 OPENOUT" leatalog' 1 
2130 PKINT#9,format 
2140 FOE x=buffer TO bytes 
2150 WRITE#9,CHR$(PEEK(x)) 

2160 NEXT x 
2170 CLOSHOUT 
2130 CLS#2 
2190 GOTO 6000 
3000 ' 

3010 ' •••"■ CATALOG EINLADEN . 

3020 ’ 

3030 1DISC.OUT:!TAPE.IN:CLS:CLS#2:LOCATE#2 
,25,2:PRINT#2,"Druecken Sie PLAY, dann [EN 
TEE I" 

3040 WHILE INKEYS <>CI-:SS(1 3) : WEND 
3050 CLS#2 : I.OCATE# 2,30,2: PR INT# 2, "CATALOG 
wird geladen":LOCATE 1,1 
3060 OPENIN"leatalog" 

30 70 INPUT#9,format 
3080 raml=buffer-1 
3090 WHILE NOT EOF 

3100 raml=ram1+1:IMPUT#9,aS:POKE raral,ASC( 
aS) 

3110 WEND 
3120 CLOSEIN 

3130 FOR x=buffer TO raml:PRINT CHRS(PEEK( 
x I );:NEXT 

31 40 CLS#2:LOCATE#2,12,2:pHINT#2,"Wirklich 
auf DISKETTE zurueckschreiben (.Da oder ( 

Mein ?" 


[1171 
19481 
1117 ) 


146591 

[317 1 
[1171 
12071 1 
(117) 
(2803) 

(1 2525) 


(1 472! 
(7322) 

(1281 ] 
(5129) 

(2591I 

112331 

(1534) 

12180) 

11556) 

1452) 

1902) 

13721 

(395 1 

11171 

118051 

1117] 

16744] 


(1281 1 
13286 I 

(2286I 
(1 528 1 
II 231 ) 
118401 
125855 

1390 ] 
[752 ] 
(39691 


3150 abfr$=UPPER$(INKEYS):IF abfr$<>"J" AN 
D abfr$<>"N" OR abfrS = '"' THEN 3150 
3160 IF abfrS="N" THEN 1000 ELSE 7000 
4000 ' 

4010 ' *•*•* BAUDRATE FESTLEGEN «■••• 
4020 ' 

4030 CLS:CLS#2 

4040 LOCATE 18,2:PRINT"Folgende Baudraten 
sind moeglich:" 

4050 PRINT:PRINT 
4060 FOR x = 1 TO 8 

4070 PRINT" 1";x;") - 

-, "j:IF X=1 THEN PRINT" ";(x+1)*400 

j” Baud” ELSE PRINT (xa1)*400;" Baud" 

4080 PRINT 
4090 NEXT x 

4100 LOCATE«,5,2:PRINT#2,"Bitte druecken 
Sie die Ziffer, die vor der gewuenschten B 
audratc steht.” 

4110 abfr$=INKEYS:IF abfrS-"" THEN 4110 
4120 abfr=ASC(abfrS) 

4130 IF abt'r<49 OR abfr»56 THEN 4110 

4140 zwi=INT<1000000/((abf r-47 )*1200)«.5) 

4150 hby te = INT(zwi/256) 

4160 lbyte=zwi-hbyte"2 56 

4170 POKE lowbyte,ibyte:POKE highbyte.hbyt 

4180 CALL espeed 
4190 kass=(abfr-47)"400 
4200 GOTO 1000 
5000 ' 

5010 ' KASSETTENMOTORSTEUERUNG 


(6007 I 

[19701 
(1171 
(1007I 
(1171 
[239] 
[4621 I 

(743) 
(702) 
(6658 ) 


[361 1 
(4521 
183371 


11361 1 
11144) 
(24571 
(3246) 
[2194 1 
12064] 
13573) 

(615) 

II 400) 
(3391 

III 7 ) 
(2003) 


5020 ' (1171 

5030 CI,S:CLS#2:LOCATE 20,7 : PRINT" (A) Kass (180931 
ettenmotor einschalten":LOCATE 20,10:PRINT 
"(Bl Kassettenmotor ausschalten":LOCATE 2 
0,13:PRINT"IC I Zurueck zum Hauptmenue":LO 
CATE#2,22,2:PRINT«,"Druecken Sie die gewu 
enschte Taste" 

5040 LOCATE 18,18:PRINT"Kassettenmotor Sta 143591 

5050 abtrS=UPPEK$(INKEYS):IF abfr$=”" OR a 15924] 
bfr$«>"A" AND abfrS«>“B" AND abfrS<>"C" TH 
EN 5050 

5060 abfr=(ASC(abfr$))-64:ON abfr GOTO 508 (32091 
0,5100,1030 

5070 GOTO 5050 (337) 

5080 ' 11171 

5090 LOCATE 18,18:PRlNT"Kassettenmotor Sta (5016) 
-- <AUS>":CALL SBC6E:GOT 
0 5050 

5100 ' (1171 

5110 LOCATE 18,18:PRINT"Kassettenmotor Sta (65991 
" :CALL &BC71 :GOTO 5050 


6000 

6010 


(1171 

DISKETTE AUF BAND SICHERN • 11842) 


6020 ' 11171 

6030 GOSUB 11 000:IF nodisc« THEN GOSUB 1 2 13387 1 
000 

6040 POKE befahl,884:POKE offset,format:PO [28501 
KE cwork,8 9E 

6045 FOR x=0 TO 7 16951 

6050 bufferl=buffer (2308) 

6060 FOR y=0 TO 4 11454 1 

6070 FOR z=1 TO 9 11282] 

6080 POKE sector,z:POKE track,x*5»y:POKE r 19576] 
am,buffer!-(INT(bufferl/256)*2561:POKE raro 
♦1,INT(buffer1/2561:CALL disc 

6090 bufferl«uff erl *512 [25261 

6100 NEXT z 1450] 

6110 LOCATE#2,31,2:PRTNT#2,"TRACK ";x*5*y; 125491 
" wird kopiert" 

6120 NEXT y 14551 

6130 CALL tape (6311 

6140 NEXT x (452) 

6150 CLS #2: LOCATE«, 15,2: PRINT«, "DISKETTE [6222 1 
komplett abgespeichert, weiter mit [ENTER 
1" 

6160 WHILE INKEYS«>CHRS<13) : WEND:GOTO 10 (18561 

00 

7000 ' 

7010 1 • 

REIBEN •***• 

7020 ' 

7030 CLS#2:GOSUB 11000:IF nodisc=0 TUEN GO 
SUB 12000 ELSE IF wrprot=64 THEN GOSUB 130 
00 

7040 LOCATE«, 18,2:PRINT#2, "KASSETTE wird 
auf DISKETTE zurueckqeschrieben":P0KE befe 
hi,S85:POKE offset,format:POKE cwork,8A1 
7050 FOR x=0 TO 7 
7060 bufferl=buffer 


BAND AUF DISKETTE ZURUECKSCH 


11171 

(2022 1 


1117 1 

15274 ) 


16951 
123081 


7070 CALL tape 
7080 FOR y« TO 4 
7090 FOR z = 1 TO 9 

7100 POKE sector,z:POKE track,x-5.y:POKE r 
am,bufferl-(INT(bufferl/2561-256):POKE ram 
+1.INT[bufferl/2561:CALL disc 
7110 buf ferl «uff erl +512 
7120 NEXT z 

7130 CLS«: LOCATE# 2,31,2: PR INT# 2 , "TRACK 
x'5+y;" wird geladen" 

71 40*HEXT y 
7150 NEXT x 

71 60 CLS#2 : LOCATE#2,18,2: PRINT« , "KASSETTE 
komplett geladen, weiter mit [ENTERl" 

7170 WHILE INKEYS<>CHRS(13) : WEND:GOTO 10 
00 


(631 1 
(1 4541 
11282 ) 
[95761 


PROGRAMM BEENDEN 


3000 ' 

3010 ' • 

8020 ' 

8030 KODE 2:|DISC:END 
9000 ' 

9010 ' •*••• DISKETTE CATALOGISIEREN 
9020 ' 

9030 CLS:CLS#2:GOSUB 11000:IF nodisc« THE 
N GOSUB 12000 

9040 CAT:format=PKEK(SA89F)-1 
9050 IF format« THEN PRINT"IBM - Format" 
ELSE IF format»AC0 THEN PRINT"DATA-ONLY - 
Format" ELSE IF format=840 THEN PRIHT"CP/M 
- Format" ELSE PRINT"RANDOM - Format" 

9060 LOCATE#2,23,2;PRINT#2,"Druecken Sie l 
ENTER I fuar Hauptmenue" 

9070 WHILE INKEYS < >CHR$(13) : WEND:GOTO 10 
00 

10000 ' 

10010 ' •••*• DATAS FUER MASCHINENPROGRAM 
ME EINPOKEN *•*•* 

10020 ' 

10030 DATA 821,801,801,«CD,875,8BB,821,8CA 
,S32,8E5,8CD,S60,8BB,SS1,877,823, 1925 
10040 DATA &FE,874,528,514,8E5,8CD,878,SBB 
,824,S7C,SFE,851,828,805,&CD,875, 2033 
10050 DATA &BT),Sia,8E7,S26,801 ,82C,818,8F6 
,82B,822,8C8,832,809,800,800,800, 1323 
10060 DATA 800,800,800,800,800,800,800,800 
,800,500,S3A,830,890,847,821,863, 453 
10070 DATA 890,870,8CD,SD4,8BC,SDO,822,860 
,890,879,832,862,890,821,832,890, 1983 
10080 DATA 87K,823,S56,S23,S4E,S81,84F,S1E 
,S0C.82A,835,890,SDF,S60,890,8C9, 1501 
10090 DATA 800,800,800,800,800,821,85D,S00 
,S3E,80A,8CD,S68,8BC,SC9,S3E,816, 980 
10100 DATA 811 ,S00,55A,821,8CA,832,8CD,89E 
,8BC,SC9, 1144 

10110 dat« : sz« : dz = 10030 
10120 FOR adr =-28672 TO -28551 
10130 READ byte : dat=dat*1 
sz=sz+byte 
POKE adr,byte 

IF dat < 16 AND adr « -28551 THEN 


101 40 
101 80 
10160 
10200 
10170 
10180 


READ chksu 
IF chksum« 


THEN PRINT "Fehler i 


n Zeile :";dz 
10190 dz=dz 
10200 NEXT adr 
10210 RETURN 
11000 ' 

11010 1 


STATUS DISKETTENLAUFWERK 


11020 ' 

11030 OUT(SFA7E1,1:FOR X=1 TO 1000:NEXT:OU 
T(SFB7F),4:OUT(8F87F),(-PEEK(8A7001+21:sta 
tus=INFI8FB7F):OUT(8FA7E),0 
11040 nodisc=status AND 32:wrprot=status A 
ND 64 

11050 RETURN 
12000 ' 

12010 . KEINE DISKETTE IN LAUFWERK 

A 

12020 ' 

12030 LOCATE« ,16,2: PRINT«, "Keine DISKETT 
E ir. A, bitte einlegen, dann [ENTER)" 

12040 WHILE INKEYS«>CHR$(13) : WEND:CLS#2: 

RETURN 

13000 ' 

13010 1 ■•••* DISKETTE SCHREIBGESCHUETZT 


125261 

1450) 

(46621 

1455) 
1452 1 
(6628 1 

(18561 

(1171 
(1 346 1 
(1171 
11 583 ) 
(1171 
(1765 ) 

(1171 
128031 

(6941 
19183 1 


1117) 
13821 1 


1117 1 
(2038 1 


128951 

(4523) 

(29371 

(2614 1 

11776] 
[14681 
(1921 J 
[1 743 ] 
(8981 
(2049) 

[1079] 
[ 30G1 1 

(20781 
( 453 1 
(555 1 
[117] 
13179) 

1117) 

[62371 


(555) 
1117) 
(2342I 

1117) 
14083 1 


(1171 
12950 I 


13020 ' 1117) 

13030 CLS#2:LOCATE#2,6,2:PKINT#2,"DISKETTE 1109351 
ist schreibgeschuetzt, Schutzzunge versch 
ieben, dannn IENTER!" 

13040 WHILE INKEYS«>CHR$(13) : WEND:CLS#2: [3142] 
RETURN 


Sonderheft 2 '86 


cpc 73 


Software 











































Hardware 


Hill 


IIIIIIIHI 


III 


Hill! 


IHM. 


•:Sx£- 


Programm¬ 
austausch 
mit MSDOS- 
Rechnern 



Lr^,*Tl.v, 



Obwohl das Betriebssystem CP/M für 8- 
Bit-Rechner im Zeitalter der 16- und 32- 
Bit-Generation schon längst totgesagt 
war, erfreut es sich zur Zeit, nicht zuletzt 
auch durch die vielen Besitzer eines 
Schneider Computers, w ieder großer Be¬ 
liebtheit. Auch im Joyce schlägt einmal 
mehr das Herz des sehr bekannten Pro¬ 
zessors Z80 von Zilog. 


Natürlich weiß jeder, daß es mittler¬ 
weile viel schnellere und komfortablere 
Microprozessoren gibt, die intern 16- 
oder sogar 32 Bit breite Datenworte ver¬ 
arbeiten und auch einen wesentlich 
größeren Speicherbereich adressieren 
können. Ihre höhere Verarbeitungs¬ 
geschwindigkeit resultiert aber nicht 
nur aus der Tatsache, daß über den um 
den Faktor 2 bzw. 4 vergrößerten Da¬ 
tenbus mehr Daten im Prozessor trans¬ 
portiert werden können. Auch der Be¬ 
fehlssatz dieser moderneren Prozesso¬ 
ren wurde erheblich erweitert, wodurch 
z.B. auch Multiplikationsbefehle ver¬ 
fügbar sind, so daß nicht jede arith¬ 
metische Operation auf eine simple Ad¬ 
dition zurückgeführt werden muß. 
Diese Arbeit übernimmt jetzt der 
Prozessor. 

Leider können jedoch in vielen Fällen 
die Möglichkeiten der Prozessoren 
nicht voll ausgeschöpft werden, da ih¬ 
nen ein zu kleiner externer Datenbus 
verpaßt wurde. Auch der IBM PC und 
seine kompatiblen Brüder, die mit dem 
16-Bit-Prozessor 8088 arbeiten, besit¬ 
zen nur einen externen 8-Bit-Datenbus. 
wodurch Programme nur unwesentlich 
schneller abgearbeitet werden als beim 
Schneider. Damit wollen wir zum ei¬ 
gentlichen Thema dieses Artikels 
kommen: 


Die drei Möglichkeiten 


Um Programme zwischen MSDOS- 
Rechnem und dem Schneider CPC aus- 
tauschen zu können, gibt es im Prinzip 
nur drei Möglichkeiten: 


1. Eintippen 

2. Austausch über eine serielle RS 232- 
Schnittstelle 

3. Tansfer über das 5.25”-Laufwerk 
von Vortex 

Bei allen drei Möglichkeiten ist natür¬ 
lich klar, daß wir nur Source-Code, also 
Quell-Text im ASCII-Format trans¬ 
ferieren können. Weiterhin müssen wir 
darauf achten, daß z.B. vor dem Ab¬ 
lauf eines Schneider-Basic-Programmes 
unter GWBASIC und MS DOS bzw. 
umgekehrt, die entsprechenden Syntax- 
Dialekte angepaßt werden müssen. Das 
geht aber ziemlich leicht, da sich die bei¬ 
den Basics stark ähneln, was nicht zu¬ 
letzt auch auf die gleiche Auflösung im 
Grafik-Modus zurückzuführen ist. 
WORDSTAR-Dateien sind sofort lauf¬ 
fähig. ebenso Source-Programme, die 
z.B. unter TURBO-Pascal geschrieben 
wurden, das ja ebenfalls unter MSDOS 
läuft. 


Da das Eintippen sicher nicht näher er¬ 
läutertwerden muß, wollen wir uns jetzt 
mit den beiden letzten Punkten beschäf¬ 
tigen. 


Transfer über die 
RS 232-SchnittsteIIe 


Da der Schneider CPC leider keine 
serielle Schnittstelle besitzt, muß diese 
zunächst einmal erworben werden. 
Mittlerweile gibt es ja eine Vielzahl von 
Anbietern (s.a. Heft Nr. 12/85). Ein 
großer Nachteil ist jedoch, daß wir die 
beiden Rechner irgendwie koppeln 
müssen. Also entweder über das Post¬ 
netz, wobei wir zum zweiten Mal eine 
ganze Menge Aufwand treiben müssen 
(Modem etc.), oder indem wir unseren 
Schneider unter den Arm nehmen und 
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wenn wir Source-Texte in Turbo- 
Pascal, Basic oder FORTRAN von ei¬ 
nem IBM-Rechner einfach per Diskette 
auf unseren Schneider übertragen 
könnten. 

Um es gleich vorwegzunehmen, es geht. 
Alles, was man braucht, ist neben dem 
5.25”-Laufwerk Fl/S bzw. Fl/D von 
Vortex, der Diskmanager PARA (s.a. 
Schneider International Nr. 7/85). 

Nachdem das Programm MSDOS- 
MANAGER, mit dem man MSDOS- 
Diskettenformate direkt lesen und be¬ 
schreiben konnte, leider wieder aus 
dem Softwareangebot von Vortex 
herausgenommen wurde, müssen wir 
uns also mit dem universellen PARA 
begnügen. 


Arbeiten mit PARA 


Nach dem Laden von PARA kann man 
sich getrost mit Hilfe der Menuesteue- 
rung durch das Programm führen las¬ 
sen. Nach dem Anwählen der Option 3 
für spezielle Systeme könnemwir uns 
aus der von Vortex mitgelieferten, sehr 
reichhaltigen Systemdatei das Format 
IBM SS hereinladen und die Parameter 
mit der Option 2 installieren. 

Wenn wir jetzt eine Diskette mit MS- 
DOS-Format einlegen. meldet PARA: 

NO FILE 

Das war allerdings auch zu erwarten, 
da nämlich die Directory unter MS- 
DOS ganz anders organisiert wird. Das 
installierte Format wird aber dennoch 
vom IBM-Rechner benutzt und zwar 
unter CP/M 86. 


Arbeiten mit CP/M 86 


ihn neben dem IBM PC aufbauen. Da¬ 
nach wird das Verbindungskabel mit 
der vorhandenen RS 232-Schnittstelle 
des MSDOS-Rechners verbunden, die 
Parameter für das Übertragungspro¬ 
protokoll eingestellt und endlich kann 
es losgehen. 


Transfer über eine 
5.25”-Diskette 


Viel schöner wäre es jedoch, wenn wir 
z.B. zu Hause mit unserem CPC einen 
längeren Text mit WORDSTAR unter 
CP/M erstellen würden, diesen auf 
eine 5.25’"-Diskette speichern und ir¬ 
gendwo» mit einem IBM PC wieder einie¬ 
sen könnten, um ihn dann z.B. mit ei¬ 
nem Schönschreib-Drucker ausdrucken 
zu lassen. Oder, wie schön wäre es. 


Nicht nur MICROSOFT (MSDOS), 
sondern auch Digital Research, der 
Vater von CP/M, hat ein Betriebssystem 
für den 16-Bit-Mircroprozessor 8088 
entwickelt. Dieses Betriebssystem heißt 
CP/M 86 und ist, wie der Name schon 
vermuten läßt, sehr stark an das uns be¬ 
kannte CP/M 2.2 bzw. CP/M Plus ange¬ 
lehnt. Das ist wohl auch der Grund, 
weshalb IBM alle Rechner mit dem völ¬ 
lig neuen und moderneren MSDOS 
ausliefert. Der große Vorteil von CP/M 
86 ist jedoch, daß man sofort mit ihm 
zurecht kommt, w r enn man CP/M unter 
8-Bit kennengelernt hat. Ein weiterer 
Vorteil von CP/M 86 besteht in der 
Tatsache, daß auch MSDOS-Program- 
me erkannt und einwandfrei ausgefühlt 
werden können, z.B. WORDSTAR. Wir 
können also sehr einfach Disketten un¬ 
ter CP/M 86 formatieren und beliebig 
beschreiben. z.B. mit einem Turbo- 
Pascal oder Basic-Source-Programm, 
das unter MSDOS erstellt wurde. 





Ein kleines Problem gibt es noch bei 
WORDSTAR durch die unterschied¬ 
lichen Versionen. Da auf dem Schnei¬ 
der ohne Speichererweiterung norma¬ 
lerweise nur die Version 3.0 läuft, unter 
MSDOS aber häufig schon die neueren 
Versionen 3.3 und 3.4 anzutreffen sind, 
die ein paar nur unter 3.0 sichtbare 
Steuerzeichen in den Text einmischen, 
sollten alle Texte unter MSDOS nur 
über das ‘P-Menue abgespeichert wer¬ 
den. Dabei müssen die Fragen ”Für 
WORDSTAR?" unbedingt mit "n" und 
"Ausgabe auf Diskette?” mit "j” beant¬ 
wortet werden. 

Eine solche Diskette können wir nun 
einwandfrei mit PARA lesen und mit PIP 
auf eine Diskette im Vortex-Format ko¬ 
pieren. Besitzer des Einzellaufwerkes 
Fl/S müssen den kleinen Umweg über 
die Kassette wählen, selbst wenn sie 
eine Vortex-Ramdisk ihr Eigen nennen 
können, da diese unter PARA in der jet¬ 
zigen Version leider noch nicht ange¬ 
sprochen werden kann. Ein weiteres 
Problem taucht dadurch auch beim Be¬ 
schreiben im IBM-Format auf, was bei 
der Fl/S ebenfalls nur mit einem Trick 
behoben werden kann. Dazu benötigen 
wir nur ein einziges Mal das Doppel¬ 
laufwerk Fl/D und kopieren uns das 
Systemprogramm CASCOPY.COM 
auf die IBM-Arbeitsdiskette. Jetzt kön¬ 
nen wir auch mit dem Einzellaufwerk 
nach Herzenslust IBM-Disketten lesen 
und beschreiben. 

Damit auch Besitzer des 3"-Laufwerkes 
von Schneider nicht leer ausgehen. § 
können alle Programme, die mit 
CASCOPY und einer Fl/S auf Kassette 
geschrieben wurden, mit dem Befehl 
CSAVE gelesen und auf eine 3”- 
Diskette gespeichert werden. 

Was PARA sonst noch alles kann und 
wie es sich unter dem neuen Disketten- 
Betriebssystem VDOS 2.0 bewährt, er- 
fahren Sie in einem weiteren Bericht. 

Dipl.Ing. H. Schernhn 


Sonderheft 2 '86 


cpc 75 


Hardware 



















u 

a. 

(0 

■o 

h. 

(0 

X 


5 'A ”-Laufwerke 
am CRC 
464 und 664 


Das 3"-Laufwerk am CPC läßt kaum 
Wünsche offen. Trotzdem dürften 5 !4”- 
Floppys als Alternative interessant sein 
-nicht nur vom Preis der Floppy und der 
Disketten her, sondern auch aufgrund 
der angebotenen Software unter CP/M 
auf 5 ’/T-Disketten. 

Ein Blick in das Handbuch des CPC 
und ein Vergleich mit den Anschlüssen 


Skizze a) 


2 6 10 1 4 18 22 26 30 34 
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der Floppy zeigen, daß der Anschluß le¬ 
diglich um 180 Grad verdreht ist. 
Skizze a) zeigt den Anschluß des CPC 
664 und der Diskettenlaufwerke BASF 
und Tandon von der Rückseite. 
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NC - Nicht beschältet 






Nachfolgend eine Übersicht über die 
Anschlußbelegung, wobei die geraden 
Anschlüsse des CPC (2 bis 34) auf 
Masse liegen. Bei den 5 VT'-Laufwerken 
liegen im Gegensatz dazu alle ungera- 

BASF 6106 
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DISK 

CHANGE 

SIDE 

SELECT 

READ 

Data 

UIRITE 

PRDTECT 

TRACK 

00 

WRITE 

GATE 

ÖETTE 

STEP 

“TfäTft 

DIRECT. SELECT 

MOTOR 

DN 


DIR. 5ELECT 2 

ÜtR. SELECT 1 

INDEX 

READY 

NC 

HE'AD LÜÄD 


(Skizze b) 




Flachkabel 3^xO.U 
- ca. 700 mm 


Fiöppystecker 35 pol. 
Raster 2.54 


(CPC 6128 Centronic) 


den. also Anschluß 1 bis 33, auf Masse. 
(Dies ist beim Anfertigen des Verbin¬ 
dungskabels unbedingt zu beachten 
(Skizze b)) 

Man sollte bei der Auswahl der Floppy 
auf die Steprate achten. So läuft das 
BASF 6106 und 6128 ohne Änderung. 
Beim Tandonlaufwerk TM 50/1 und 
TM 50/2 muß die Steprate mit 'SETUP 
auf 15 msec gesetzt werden. 

Anmerkung: 

Das BASF 6128 und das Tandon 50/2 
sind Doppellaufwerke, die zum Auste¬ 
sten genutzt wurden. 

Bei diesen Laufwerken sind folgende 
Brücken zu schalten: 

Tandon U 19 Pin 9 mit 8 und 14 mit 3. 
bei BASF 6128 AH und S2. Das 
»READY«-Signal ist bei Tandon nicht 
beschältet (siehe dazu Skizze c). 

Das READY-Signal beim BASF 6106 
liegt auf Pin 6. Die Änderung der Leiter¬ 
bahnführung ist auf Skizze d) zu 
sehen. 
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Für den CPC 464 wird zum Anschluß 

des Verbindungskabels noch ein Stück Skizze c) 
Leiterplatte, zweiseitig, 2x17 polig x 22 
mm lang, benötigt. Falls im Handel 34 32 30 

nicht erhältlich, kann man sich dies aus 
einer handelsüblichen Leiterplatte 
(Eurokarte, Raster 2.54 x 2.54) zurecht¬ 
schneiden. 


Beim Kauf der 34-poligen Floppy- 
stecker sollte man die Verriegelungs¬ 
stücke mit erwerben und einstecken. 
Das Formatieren mit dem CP/M- 
Programm FORMAT.COM ist nicht 
möglich. Bekannterweise wird unter 
COPYDISC eine Formatierung vorge¬ 
nommen, wobei man anschließend die 
Files mit ERA löschen kann. 

Beim CPC 6128 muß die Centronicsbe- 
legung beachtet werden, wobei CPC- 
seitig jetzt eine Centronics-Buchse an¬ 
geklemmt wird. 

Die Anschlußbelegungen sind jeweils 
aus den technischen Unterlagen der 
Lieferfirmen entnommen. 

Hans Ziegler 


5 14'’-Laufwerke 
am CPC 
664/6128 
ohne 
Kompromisse 


Mit dem nachfolgend beschriebenen 
Umbau ist man in der Lage, das 5 14“- 
Laufwerk als Laufwerk A. und die ein¬ 
gebaute 3“-Floppy als Laufwerk B. oder 
umgekehrt zu definieren. 

Benötigt wird ein Micro- oder Schiebe¬ 
schalter (2 x Um), ein Stück Alu- oder 
Stahlblech (13 x 42 mm) und vier flexi¬ 
ble Drähte (ca. 120 mm lang). 

Bevor man nun mit dem Umbau be¬ 
ginnt, sollte man bedenken, daß bei ei¬ 
nem solchen Eingriff der Garantiean¬ 
spruch erlischt. 

Das Verbindungskabel wird, wie unter 
Tip 5 14“ am CPC 464/664 beschrieben, 
angefertigt. 

Umbau: 

1. Alle Verbindungskabel abziehen, 
CPC umdrehen und die sieben Schrau¬ 
ben lösen. 


Tandon 

9^8 


Tandon 


I Lötstift 
Drahtbrücke 


• • SH 
•—*AH 

—+S3L 

• *S3 

• -SV 


BASF 

6128 


Skizze d) 


Leiterbahn 

unterbrechen 


BASF 

6106 


Brücke 
zu Pin 34 


Leiterbahn 

unterbrechen 


ij 


2, CPC wieder in die normale Lage 
drehen und Oberteil abnehmen. Die 
Verbindung zur Tastatur lösen, in¬ 
dem man an der Halterung das Ober¬ 
teil anhebt und das Band abzieht. 
Alle Steckverbindungen abziehen. 
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Pinbelegung 5 


Die Pins 1,2,4 und 5 des Schalters müs¬ 
sen durch ca. 120 mm lange Drähte mit 
den Lölaugen 1,2,4 und 5 auf der Haupt¬ 
platine (Foto rechts) verbunden werden. 
Bei den Brücken 1 - 6 und 3 - 4 am Schal¬ 
ter isolierten Draht verwenden! 


Skizze ec) 
Pinbelegung 


' i 

I 

1 

J, 1 3 

AV 


^ 3 6 


Die vier Schrauben des 3”-Laufwer- 
kes lösen und beide Stecker abziehen. 

3. Ein StückBlech laut Skizze aa)anfer- 
l ^ en ' Skizze aa) 


tinensteckers (zweites Laufwerk) her- 
stellen. Siehe hierzu Skizze cc. 

Skizzec _^_© 2 ? 33 

Drive B 
An Schicht 
von unten 


Drahtbrücke 
von Lötange zu 25 
hers teilen 


9. Nun werden die vier Drähte iaut 
Skizze auf der Platine und am 
Schalter angelötet. Am Schalter wird 
jeweils über kreuz eine Verbindung 
hergestellt. Wird der Schaltei laut 
Skizze ee verdrahtet und eingebaut, 
ist bei Schalterstellung nach vorne 
die 3”-Floppy im definierten Zu¬ 
stand A. 

10. Alle Verbindungen sorgfältig prü¬ 
fen, danach CPC zusammenbauen 
und verschrauben. 


4. POWER-Schalter rechts im CPC ein¬ 
schließlich Haltewinkel abschrau¬ 
ben und Stecker abziehen. An dieser 
Stelle muß nunmehr eine Kurzschluß¬ 
brücke eingesteckt werden. 

Der Haltewinkel wird nach L nt fer¬ 
nen des Schalters nach unten nach¬ 
gefeilt und zusammen mit dem Blech 
nach Skizze bb montiert (zwei Schrau¬ 
ben, 3mm x 10). 


Ob die Spannungen zum 5 ^"-Laufwerk 
vom CPC genommen werden oder mit 
eigenem Netzgerät versehen werden, sei 
jedem selbst überlassen. Letzteres wäre 
auf jeden Fall besser, um Kopplungen 
von vornherein zu unterbinden bzw. 
die Reserve für spätere Einbauten wie 
Speichererweiterung, serielle Schnitt¬ 
stelle etc aufzuheben. Als Bezugsquelle 
für eigene Gehäuseerstellung sei auf die 
Firma ’iserf in Eiterfeld verwiesen. 


Um mit dem 5 ^"-Laufwerk zu ar¬ 
beiten, müssen wir uns noch eine 5 14”- 
Systemdiskette erstellen. Dazu wird der 
Schalter nach vorne gelegt ('definiertes 
Laufwerk 3” = Au.5 14” = B). An¬ 
schließend System dis kette in das 3”- 
Laufwerk schieben und mit COPY- 
DISC die Übertragung auf das Lauf¬ 
werk B vornehmen. 


5. Platine des CPC von Unterseite 
abschrauben. 

6. Platine umdrehen und fehlende Ver¬ 
bindung Laufwerk A zu Pin 25 des Pla- 


Nach diesem Vorgang Schalter nach 
hinten legen, wodurch jetzt die 5 14”- 
Floppy unter Laufwerk A definiert ist. 
Es können jetzt Disketten formatiert 
und Duplikate erstellt werden. Es steht 
nunmehr nichts mehr im Wege. Soft¬ 
ware auf den 5 Vf’-Laufwerken zu lesen 
und zu beschreiben, sofern diese dem 
Format entsprechen. Hans Ziegler 


7. Platine wieder auf das CPC 
Unterteil schrauben. 


8. Leiterbahn von IC 203 Pin 8 zu R214 
(2.2 KOhm) unterbrechen. Leiter¬ 
bahn von IC 203 Pin 6 zu Stecker 3”- 
Floppy unterbrechen. (Skizze dd) 


Floppystecker 

oben 


Leiterbahn zu Ic 206 
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Sie wollen uns ein Programm zusenden? Folgende Regeln sollten Sie beachten: 


1) Schicken Sie Ihre Programme auf 
Kassette oder Diskette. Dabei mehr¬ 
mals hintereinander abspeichern. 

2) Legen Sie eine ausführliche Pro- 
grammbeschreibung bei, aus der ein¬ 
deutig der Sinn und Zweck des Pro¬ 
grammes hervorgeht. Eine Varia¬ 
blenliste ist sehr wichtig, in ihr 
sollten alle im Programm definierten 
Variablen mit ihrer Verwendung auf¬ 
geführt sein. 

Beispiel: n$ = Nachname 
g = glücklicher usw. 

3) Wenn Siegleichzeitig Besitzereines 
Druckers sind, schicken Sie auf je¬ 
den Fall ein Programmlisting mit. 

4) Vergessen Sie Ihren Absender nicht! 
Vollständige Anschrift wenn möglich 
auch die Telefonnummer, ersparen 
unnötige Verzögerungen bei even¬ 
tuellen Nachfragen unsererseits. 

5) Behalten Sie aufjeden Fall eine Ko¬ 
pie Ihres Programmes, unvorherseh¬ 
bare Umstände, wie z.B. Bandriß der 


Kassette, werden somit nicht zur 
Katastrophe. 

6) Wenn Sie sogar mehrere Programme 
geschrieben haben und diese veröf¬ 
fentlichen wollen, nehmen Sie bitte 
für jedes Programm eine separate 
Kassette (mehrmals abspeichern!). 

Damit erleichtern Sie unsere Arbeit 
wesentlich und eine schnellere Bear¬ 
beitung wird möglich. 

7) Versehen Sie das Programm mit den 
sehr wichtigen REM-Statements. 
Das fördert nicht nur die Übersicht 
für uns und unsere Leser, sondern 
unterstützt zusätzlich das struktu¬ 
rierte Programmieren. Merke: Auch 
erfahrene Programmierer verwenden 
REM-Zeilen, das Programm sollte 
schließlich jeder verstehen und an¬ 
wenden können. 

8) Vermeiden Sie möglichst Variablen¬ 
namen. wo leicht 1 und i oderO und o 
verwechselt werden können. Varia¬ 
blen sollten grundsätzlich in Klein¬ 


buchstaben geschrieben werden und 
möglichst verständlich sein. Die 
Variable butter sagt mehr aus, als nur 
bu. 

9) Bieten Sie das Programm niemals 
verschiedenen Verlagen gleichzeitig 
an! Mit der Veröffentlichung und dem 
daraus resultierenden Honorar, ge¬ 
hen die Urheberrechte an den Verlag 
über! Sollte Ihr Programm dann noch 
in einer anderen Zeitschrift ab¬ 
gedruckt werden, liegt ein Verstoß 
gegen das Wettbewerbsrecht vor. 

10) Jedes bei uns ordnungsgemäß einge¬ 
gangene Programm wird ausführlich 
begutachtet und getestet. Sie er¬ 
halten von uns dann umgehend Be¬ 
scheid, ob Ihr Programm veröffent¬ 
licht wird oder nicht. Wenn Sie das 
Programm nach unserer Begutach¬ 
tung zurückhaben wollen, legen Sie 
bitte der Einsendung einen frankier¬ 
ten und adressierten Rückumschlag 
bei. Die Kosten einer eventuellen 
Rücksendung sind in jedem Fall vom 
Einsender zu tragen. 


Falls wir uns für den Abdruck Ihres Programmes entschieden haben, setzen wir uns unverzüglich mit Ihnen in Verbindung und be¬ 
sprechen Ihr verdientes Honorar! 

Übrigens wäre es nett, wenn Sie uns auch ein paar persönliche Daten schreiben würden (z.B. Ihr Alter, Tätigkeit, wie und wann kam 
die Idee zu dem Programm, was alles machen Sie mit dem C PC usw.?). So, jetzt aber genug der Theorie, mit fast unerträglicher 
Spannung und Neugier wartet Ihre „Schneider CPC international” auf Ihre Beiträge. 

Einsendungen bitte an: DMV - Daten & Miedien Verlagsges.mbH, Fuldaer Straße 6, 3440 Eschwege 
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Ein Bild sagt mehr 
als 1000 Worte 
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Deshalb ist 

*$k*‘**‘* Grafikverarbeitung 

noch wichtiger als Textverarbeitung. 
Mit PROFI PAINTER erhalten Sie eine 
Grafikverarbeitung für den CPC, die 
den bekannten Vorbildern aus der 
16/32 bit Welt kaum nachsteht. 


Die Vorzüge einer Textverarbeitung sind Ihnen 
sicherlich bewußt. Warum also nicht auch Gra¬ 
fiken ähnlich leicht und komfortabel erstellen. 
Hier setzt PROFI PAINTER an, die Grafikverar¬ 
beitung für die Schneider CPC Rechner. 

Mit PROFI PAINTER können beliebige, mehr¬ 
farbige Grafiken einfach erstellt, korrigiert, 
auf Diskette dauerhaft gespeichert und auf 
Druckern als Hardcopy ausgegeben werden. • 

PROFI PAINTER ist leicht zu bedienen! 

Mittels einer grafikorientierten Benutzerober¬ 
fläche kann jeder mit Hilfe von Icons, Pull- 
Down-Menüs und Windows auf einfachste 
Weise Bilder, Grafiken oder technische Zeich¬ 
nungen erstellen. 

Mit dem Joystick oder der Maus bewegen Sie 
den Zeiger an eine beliebige Stelle auf dem 
Bildschirm, ein Klick und die Funktion wird aus¬ 
geführt. 


- das Auswahlviereck und die Lasso-Funk¬ 
tion, mit der Sie Bildschirmbereiche u.a. 

• Verschieben • Kopieren • Rotieren 

• Ausschneiden •Einsetzen •Invertieren 

• Drehen •Löschen •Outlinen 

- die Textmarke, ab der Sie Ihre Grafiken 
beschriften können 

aus 5 Zeichensätzen 

in 5 unterschiedlichen Schriftarten 

(Standard, kursiv, fett, kontur, unterstrichen) 

Folgende Optionen können Sie anwählen: 

- den Vergrößerungsmodus, in dem Sie 

jeden Einzelpunkt der Grafik bearbeiten 

- das Ganze Seite Zeigen, wobei das 
gesamte Dokument, das sich über mehrere 
Bildschirmseiten erstreckt, verkleinert ange¬ 
zeigt wird 

- die Farbwahl, wobei Sie die Bildschirm¬ 
farben frei einstellen 


PROFI PAINTER unterstützt den Schneider- 
NLQ und Epson kompatible Drucker. Farben 
werden beim Ausdruck in entsprechende 
Schattierungen übersetzt. Der Umfang eines 
s/w-Dokumentes entspricht einer DIN A 4 Seite. 

Darüber hinaus bestehtdie Möglichkeit, Teilbil¬ 
der in einer Zwischenablage zu speichern, um 
den Bildtransfer zwischen verschiedenen 
Dokumenten zu ermöglichen. 



Unter anderem stehen folgende Werkzeuge zur 

Verfügung: 

- der Bleistift, mit dem Sie feine Linien 
zeichnen oder löschen 

- der Pinsel in verschiedenen Größen und 
Formen, mit dem Sie malen 

- die Sprühdose, mit der Sie Graffitis erstellen 

- der Farbeimer, mit dem Sie beliebige 
Flächen ausfüllen 

- der Radiergummi, mit dem Sie bestimmte 
Stellen wieder löschen 

- das Lineal, mit dem Sie beliebige Linien¬ 
züge zeichnen 

- das Rechteck mit oder ohne abgerundete 
Ecken 

- das Polygon und die Ellipse 


- der Musterentwurf, wobei Sie eigene 
Muster erstellen und auf Diskette dauerhaft 
sichern 

■ der Joystickweg, wobei Sie Ihren Joystick 
optimal anpassen können. 



PROFI PAINTER CPC läuft auf dem 
464, 664 und 6128 und kostet 
einschließlich ausführlichem, 
reich illustriertem Handbuch 
nur DM 198,-. 


Hardcopy vom einer PP-Grafik auf dem 
CPC. Die Farben werden durch unter¬ 
schiedliche Schraffuren übersetzt. 


DATA BECKER 

Merowingerstr. 30 • 4000 Düsseldorf Tel. (0211) 310010 




















Hardware 


3)5 Zoll am 

CPC 


Bauanleitung für den Anschluß 
eines 3,5 Zoll-Zweitlaufwerkes 
für Schneider 
CPC 464/664/6128 

1. Seit einiger Zeit sind preisgünstige 
Diskettenlaufwerke aus Restbeständen, 
Überproduktionen usw. zu erwerben. 
Ein Grund für Hobbybastler, sich Ge¬ 
danken darüber zu machen, ob sie bei 
diesen Preisen nicht ein zweites Lauf¬ 
werk an ihren Computer anschließen 
sollten. Im Falle der Schneider Com¬ 
puter gibt es hier an sich überhaupt 
keine Frage nach einem sinnvollen Ein¬ 
satz dieses Zweitlaufwerkes, da speziell 
bei ernsthafter Anwendung dieses Com¬ 
puters, ein zweites Laufwerk unver¬ 
zichtbar ist. Allein, wenn man an die 
dauernde Diskettenwechselei beim Ko¬ 
pieren von Programmen oder Disket¬ 
ten denkt, und allein das Programm 
»Multiplan« mit seinem umfangreichen 
Help-File, fast eine gesamte Disket¬ 
tenseite belegt, ist leicht ersichtlich, daß 
man die Effektivität seiner Arbeit am 
Computer durch den Einsatz eines zwei¬ 
ten Laufwerkes sicherlich noch steigern 
könnte. In der Regel sind jedoch Com¬ 
puteranwender und Computerinteres¬ 
sierte nicht notwendigerweise mit 
Elektronikbasteleien vertraut und es er¬ 
gibt sich eine durchaus natürliche 
Hemmschwelle, die sie daran hindert, 
sich ein solches Zweitlaufwerk an¬ 
zuschließen. Für diese Leute ergibt sich 
durch die Möglichkeit, nahezu alle 
Komponenten die benötigt werden, um 
ein solches Zweitlaufwerk am Schnei¬ 
der CPC anzuschließen, fertig zu kau¬ 
fen, dennoch die Möglichkeit zu einem 
lauffähigen Zweitlaufwerk für ihren 
Computer zu gelangen. 

Obwohl dann nahezu alle Teile kom¬ 
merziell gefertigt sind, ergibt sich, je 
nach Einkaufspreis des Laufwerkes 
und des entsprechenden Zubehörs, im¬ 
mer noch eine Ersparnis gegenüber ei¬ 
nem kommerziell gefertigten Gerät. In 
diesem Falle wäre nur ein Stromversor¬ 
gungskabel selbst herzustellen, und die 
gesamte Arbeit bei der Herstellung des 
Floppylaufwerkes würde sich auf me¬ 
chanische Montage des Laufwerkes in 
einem vorgefertigten Gehäuse und das 
Herstellen von Verbindungen zum 
Computer mit Hilfe vorgefertigter Ka¬ 
bel, beschränken. 

Für diejenigen, die mit Elektronikba- 
steleicn etwas vertraut sind, sind die 
Möglichkeiten zu sparen sicherlich 
noch etwas größer, da sie bestimmte 
Teile, die für den Betrieb eines zweiten 
Laufwerkes erforderlich sind, in Eigen¬ 
leistung erstellen werden. 



2. Doch nun genug der Vorrede, lassen 
Sie uns zur Sache kommen. Wenn wir 
beabsichtigen, ein solches Zweitlauf¬ 
werk an einen vorhandenen Floppy- 
eontroller anzuschließen, müssen wir 
zunächst einmal wissen, welche Daten 
ein solches Zweitlaufwerk haben muß. 
um sich am Schneider-Floppycontroller 
betreiben zu lassen. Wenn man das An¬ 
schlußbild für das zweite Disketten¬ 
laufwerk betrachtet, stellt man fest, 
daß alle Leitungen, die hcrausgeführt 
sind, für ein zweites Diskettenlauf¬ 
werk (36-polige Buchse bzw. Steckerlei¬ 
ste an der Rückseite des Gerätes), einer 
bekannten Norm für Diskettenlauf¬ 
werke entsprechen, dem sogenannten 
»Shugart-Bus« (Abbildung 1). Deshalb 
ist cs grundsätzlich möglich, alle Dis¬ 
kettenlaufwerke, die über derartige 
»Anschlußleitungen«, eben den be¬ 
sagten Shugart-Bus verfügen, an einen 
Schneider Computer anzuschließen. 
Hierbei sollte man zusätzlich zu dem 
Vorhandensein des Shugart-Busses 
noch darauf achten, daß die Step-Rate- 
Time, des in Aussicht genommenen 
Laufwerkes, möglichst gering ist. Im 
DOS (Disk Operating System), dem 
Teil des Computers, der für alles, was 
mit Diskettenlaufwerken zu tun hat, zu¬ 
ständig ist, sind hier nach dem Ein- 
schaltcn Werte von ca. 12 Millisekun¬ 
den für die Step-Rate-Time vorgegeben, 
d.h. die Zeit, die der Kopf des Disketten¬ 
laufwerkes für den Transport von einer 
Spur zur nächsten benötigt. Liegt die 
Step-Rate-Time bei oder unter diesem 
Wert, ist ein problemloser Betrieb des 
Laufwerkes ziemlich sicher. Ist das je¬ 
doch nicht der Fall, sollte man die Flinte 
auch noch nicht »ins Korn werfen«. 
Die Einstellung dieser Zeit läßt sich 
auch softwaremäßig verändern. Das 
läßt sich einmal unter CP/M mit dem 
Programm "SETUP.COM" erreichen, 
unter AMSDOS muß mit einem klei¬ 
nen Hilfsprogramm für eine richtige 
Einstellung der vorgegebenen Werte ge¬ 
sorgt werden. Darüber hinaus sollte 
man sich vergewissern, daß das in Au¬ 
genschein genommene Floppylauf- 
werk auch ein "Ready "-Signal an den 
Computer zurückmeldet, da der Con¬ 
troller es abfragt und für die Steuerung 
verwenden wird. Ist das nicht der Fall, 
läßt sich dieses Problem jedoch auch 
mit Hilfe einer Brücke im Computer lö¬ 
sen, da die Amstrad-Entwickler derar¬ 
tige Schwierigkeiten wohl voraus- 
gesehen haben. Mit Hilfe dieser Brücke 
wird das "Ready"-Signal im Computer 


künstlich erzeugt, und dem Betrieb 
auch eines solchen Laufwerkes steht 
dann nichts mehr im Wege. 

Außerdem ist es jetzt an der Zeit, einige 
grundsätzliche Daten von Disketten¬ 
laufwerken zu besprechen. Für einige 
Leser werden dies sicherlich »alte Ka¬ 
mellen« sein, für die anderen sind sie je¬ 
doch sehr hilfreich bei der Auswahl des 
in Frage kommenden Laufwerkes. Man 
unterscheidet bei Diskettenlaufwerken 
zwischen solchen mit einfacher und 
doppelter Schreibdichte (Single- oder 
Double-Density). Auf einen einfachen 
Nenner gebracht bedeutet das. daß ein 
Laufwerk mit doppelter Schreibdichte 
doppelt so viel Daten speichern kann 
wie eins mit einfacher Schreibdichte, da 
die Fläche, die zum Beschreiben zur 
Verfügung steht, statt in 40 Spuren z.B. 
in 80 Spuren aufgeteilt wird. Damit er¬ 
gibt sich eine doppelt so hohe Kapazität 
der Diskette, ähnlich wie bei einem 
Tonbandgerät, das anstelle von zwei 
Tonspuren mit vier arbeitet und damit 
die doppelte Spielzeit erzielt. Für un¬ 
sere Zwecke sind Diskettenlaufwerke 
mit einfacher Schreibdichte aus¬ 
reichend, da das DOS der Schneider 
Computer nicht mehr als 40 Spuren zu¬ 
läßt. Aus dem gleichen Grund ist ein 
einseitiges Laufwerk ausreichend, da 
auch nur einseitige Laufwerke unter- 
-stützt werden. 

Nehmen wir einmal an, ein preisgünsti¬ 
ges Laufwerk wäre in Aussicht, es hätte 
die geforderten Daten (nahezu jedes 
moderne Laufwerk weist sie auf, ledig¬ 
lich bei »Oldtimern« ist Vorsicht ge¬ 
boten). Was wird dann außer dem ei¬ 
gentlichen Laufwerk noch benötigt? 
Hierzu möchte ich Ihnen anhand einer 
kleinen Liste Auskunft geben. 

1 Diskettenlaufwerk (Shugart-Bus) 

1 Netzteil (5/12 Volt) 

1 Stromversorgungsstecker für Floppy 
1 Anschlußkabel (Floppy-Computer) 

1 10 cm vierpoligcs Kabel 
1 Floppygehäuse 

Bewußt ist bis jetzt noch nicht die Rede 
von 3"-, 5 Va"- oder 3,5"-Laufwerken. 
Diese Bauanleitung hat nämlich grund¬ 
sätzlich Gültigkeit für alle Laufwerksty¬ 
pen, wurde jedoch mit einem »Epson 
^"-Diskettenlaufwerk (SMD-110)« er¬ 
probt. Diskettenlaufwerke - gleich 
welchen Formats - unterscheiden sich 
nämlich, soweit es das Lesen und 
Schreiben von Daten angeht, nur un¬ 
wesentlich - wenigstens was den Teil 
angeht, der uns interessiert. Natürlich 
gehe ich davon aus, daß Sie über den 
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Shugart-Bus verfügen. Eines sollte man 

jedoch zusätzlich noch wissen. Das 
Netzteil, das verwendet werden muß, 
unterscheidet sich - was die Dimensio¬ 
nierung angeht - bei den einzelnen 
Laufwerken grundsätzlich. So ist für ein 
5 VV’-Laufwerk ein wesentlich stärker 
dimensioniertes Netzteil erforderlich, 
als für die kleineren Laufwerke - an 
sich verständlich, wenn man einmal be¬ 
denkt, daß hier mit der Diskette ja auch 
eine wesentlich größere Masse bewegt 
werden muß, der Motor also mehr lei¬ 
sten muß. Darüber hinaus unterschei¬ 
den sich auch die Steckverbindungen 
für die Stromversorgung und den ei¬ 
gentlichen Anschluß an den Computer. 
Abgesehen davon, daß auch die An- 
schlußstecker am Computer selbst (Cen- 
trönics-Stecker beim CPC 6128 und 
Platinenstecker bei den anderen bei¬ 
den) sich unterscheiden, müssen also 
für jedes verwendete Laufwerk ver¬ 
schiedene Steckverbindungen verwen¬ 
det werden. 

Hierbei unterscheiden sich die Steck¬ 
verbindungen für das Schneider 3”- 
und einige 3,5“-Laufwerke nicht, so daß 
beim Anschluß einer solchen 3,5"- 
Floppy auf ein Original Schneider An¬ 
schlußkabel zurückgegriffen werden 
kann und sich speziell für ungeübte 
Computerfans die Anfertigung eines 
passenden Anschlußkabels Computer- 
Diskettenlaufwerk bzw. Controller- 
Diskettenlaufwerk, erübrigt, bzw. zum 
Ausprobieren zunächst einmal verwen¬ 
det werden kann. Doch zur Anfertigung 
dieser Kabel soll später noch einmal 
Stellung genommen werden. Gehen wir 
davon aus: Der passende Stromversor¬ 
gungssteckersei besorgt, das Kabel zum 
Anschluß an den Computer liege vor, 
und auch das Netzteil und das passende 
Gehäuse sei vorhanden. 

3. Als nächstes gilt es herauszufinden, 
welche Anschlüsse der Stromversor¬ 
gung mit 12 Volt, welche mit Masse und 
welche mit 5 Volt zu verbinden sind. 
Dazu benötigt man ein einfachesViel- 
fachmeßinstrument mit einem Ohm- 
Meßbereich. Der oder die Massean¬ 
schlüsse des Diskettenlaufwerkes las¬ 
sen sich leicht herausfinden, indem 
man eine Spitze des Meßinstrumentes 
an das Chassis des Laufwerkes hält und 
mit der anderen die vier Anschluß¬ 
punkte der Stromversorgung abtastet. 
Dort, wo sich kein Widerstand zeigt, ist 
eine Masseverbindung der Stromver¬ 
sorgung. An diese Punkte wird später 
die Masse des Netzteiles gelegt. Auch 
der 5 Volt-Anschluß ist leicht zu finden. 
Auf der Platine mit der Steuereinheit 
für das Diskettenlaufwerk sind mehrere 
integrierte Schaltkreise mit Bezeich¬ 
nungen, die mit den Buchstaben ’SN' 
beginnen (siche Skizze) zu sehen. Am 
Anschluß 7 dieser Schaltkreise bei 14- 
poligen Schaltkreisen bzw. Anschluß 8 
bei 16-poligen, ist immer Masse zu fin¬ 
den. während am Anschluß 14 bzw. 16 
die Versorgungsspannung von 5 Volt 
anliegt. Ist z.B. zwischen Anschluß 14 
und einem Anschluß für die Stromver¬ 
sorgung kein Widerstand festzustellen, 


kann man davon ausgehen, den 5-Volt- 
Anschluß des Diskettenlaufwerkes ge¬ 
funden zu haben. Der 12-Volt-Anschluß 
ist dann der übrige Anschluß, da in der 
Regel zwei Anschlüsse des Stromver¬ 
sorgungssteckers Masse führen. 

Diese solcher Art gefundenen Anschlüsse 
sollten dann mit Hilfe des 4-adrigen 
Kabels mit den dazugehörigen An¬ 
schlüssen des Netzteiles verbunden 
werden. Wenn man jetzt mit Hilfe des 
Verbindungskabels das Laufwerk am 
Computer anschließt, ist das Disketten¬ 
laufwerk an sich schon betriebsbereit, 
vorausgesetzt, man hat das Netzteil mit 
220V versorgt. Für einen solchen ersten 
provisorischen Test sollte man sich je¬ 
doch vergewissern, daß das Disketten¬ 
laufwerk sich frei bewegen kann (Un¬ 
terseite!). Bei einer Ansprache des 
zweiten Laufwerks sollte es jetzt 
Reaktionen zeigen, z.B. sollte der Motor 
anspringen, die am Laufwerk einge¬ 
bauten Lämpchen leuchten u.ä. Ist das 


nicht der Fall, ist wahrscheinlich eine 
Brücke auf der Steuerplatine des 
Diskettenlaufwerkes nicht richtig ge¬ 
setzt. Mit dieser Brücke wird eingestellt, 
ob das Laufwerk als Laufwerk B, C 
usw. arbeitet. Die Brücke sollte so ge¬ 
steckt sein, daß unser Laufwerk als Lauf¬ 
werk B angesprochen wird. 
Anschließend kann nun die Montage 
des Laufwerkes im Gehäuse erfolgen. 
Die im Handel erhältlichen Gehäuse 
sind in der Regel bereits mit ent¬ 
sprechend passenden Bohrungen ver¬ 
sehen, so daß sich die Montage des 
Diskettenlaufwerkes auf das Festschrau¬ 
ben des Laufwerkes am Gehäuse mit 
Hilfe von 3-mm-Steckkopfschrauben 
beschränkt. Wird ein für das Laufwerk 
und das Gehäuse passendes Netzteil 
verwendet, sind auch die Bohrungen 
für das Netzteil vorgesehen. Da die Ge¬ 
häusehöhe in der Regel sehr knapp be¬ 
messen ist. empfiehlt es sich, die 
Netzteilplatine durch Unterlegen eines 
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Stromversorgungsstecker an Floppy 
F.s muß sich leitende Verbindung ergeben 


G round 


Masse 

(G round) bei 14-poligen IC’s 


Isolierteilers (Pertinaxplatte o.ä.) vom 
Gehäuse zu isolieren. Das Netzkabel 
sollte über eine Zugentlastung nach 
außen geführt werden und der Schutz¬ 
leiter mit dem Gehäuse des Laufwerkes 
verbunden werden. Danach ist das 
Stromversorgungskabel für die 12V bzw. 
5V Stromversorgung anzuschließen, 
wobei auf den richtigen Anschluß der 
einzelnen Spannungen zu achten ist. 
Anschließend ist das Anschlußkabel 
zum Computer auf den am Disketten¬ 
laufwerk vorhandenen 34-poligen An¬ 
schluß aufzustecken, und das Kabel 
durch eine Aussparung an der Rück¬ 
seite des Gehäuses ist unser Zweitlauf¬ 
werk nun funktionsbereit. 

Für diejenigen unter den Schneider¬ 
fans, die schon über etwas Erfahrung 
mit der Elektronikbastelei verfügen, 
soll nun die Anfertigung der Kabel zum 
Computer beschrieben werden. Ich will 
mich dabei aber bemühen, diese An¬ 
leitung möglichst einfach zu gestalten, 
vielleicht stellt der eine oder andere beim 
Lesen fest, daß es doch nicht so schwer 
ist und will auch diesen Teil in eigener 
Regie durchführen. Für die Herstellung 


der Verbindungskabel werden ca. 30 cm 
34-poliges Flachbandkabel benötigt, 
außerdem Stecker für den Anschluß an 
den Computer bzw. den Floppy- 
Controller und ein passender Stecker für 
die zu verwendende Diskettenstation. 
Da diese Stecker für jeden der Schnei¬ 
der Computer und jedes verwendete 
Diskettenlaufwerk jedoch unterschied¬ 
lich sind, sollte man sich beim Kauf des 
Diskettenlaufwerkes genau ansehen, 
welche Stecker erforderlich sind. 

Für 3"-Laufwerke sind, ebenso wie für 
3,5"-Laufwerke, meistens 34-polige Pfo¬ 
stenfeldbuchsen erforderlich. Für ein 
5 VC-Laufwerk werden im Gegensatz 
dazu 34-polige Card-Edge-Stecker ver¬ 
wendet. Auch die Stromversorgungs¬ 
stecker für die 3,5”- und die 5 Va"- 
Laufwerke unterscheiden sich häufig 
von der Größe her. Beide sind zw'ar 4- 
polig, der Stecker für das 514"-Laufwerk 
ist jedoch in der Regel erheblich größer. 
Auf der Computerseite benötigen wir 
für den CPC 6128 36-polige Centronics- 
Stecker, für den CPC 664 34-polige 
Platinenstecker und der Controller an 
der Floppy für den CPC 464 erfordert 
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wiederum 34-polige Platinenstecker. 
Alle diese Stecker sollte man in einer 
Ausführung zum Klemmen besorgen, 
da wir uns bei der hohen Übertragungs¬ 
rate des Laufwerkes schon im Bereich 
von Hochfrequenzen bewegen, und 
schlechte Übergänge an Lötstellen eine 
Fehlfunktion verursachen könnten. 
Außerdem sollte auch das Flach¬ 
bandkabel mechanisch nicht über die 
Gebühr beansprucht werden, z.B. 
durch Knickungen usw. Um ein zweites 
Laufwerk richtig am Schneider Com¬ 
puter anschließen zu können, sollte 
man ebenfalls wissen, daß alle Leitun¬ 
gen des Shugart-Busses am Schneider 
Computer für den Anschluß eines 
zweiten Laufwerkes spiegelbildlich 
ausgegeben werden (siehe Anschluß¬ 
bild und vergl. Computerhandbuch). 
Dies sollte es bei der Herstellung des Ka¬ 
bels beachtet werden. Zunächst einmal 
sind also die Anschlüsse zwischen Com¬ 
puter und Diskettenlaufwerk spiegel¬ 
gleich zu gestalten, d.h., die Seite des 
Kabels, die am Computer rechts heraus¬ 
kommt. führt zur linken Seite des 
Diskettenlaufwerkes, und umgekehrt 
(siehe Skizze). Nachdem dann das 
Flachbandkabci richtig in die Vertie¬ 
fungen zwischen den beiden Hälften 
des Klemmsteckers eingelegt ist. die ei¬ 
ner Führung des Kabels dienen, drückt 
man diese zunächst einmal mit der 
Hand zusammen, um sie anschließend 
in einem Schraubstock o.ä. voll zusam¬ 
menzupressen. Dabei sollte das Flach¬ 
bandkabel möglichst wenig überstehen, 
da ansonsten die Gefahr besteht, daß 
mit dem Deckel des Gehäuses Kurz¬ 
schlüsse auf dem Anschlußkabel zum 
Computer verursacht werden. Ähnlich 
verfährt man mit dem Stecker zum An¬ 
schluß an den Computer. Nachdem 
noch einmal überprüft wurde, ob alle 
Anschlüsse richtig getätigt worden sind, 
ist das Kabel schon fertig. In ähnlicher 
Weise lassen sich übrigens auch 
Druckeranschlußkabel, Kabel für ex- 
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terne Erweiterungen usw. anfertigen. 
Die Kabel für die Stromversorgung 
müssen in der Regel gelötet werden. Da¬ 
bei empfiehlt sich die Verwendung ei¬ 
nes Feinlötkolbens von max. 30 Watt, 
da sonst die Plastikführungen für die 
Anschlußstifte zu heiß werden und zu 
schmelzen beginnen. Ebenso sollte 
man die Lötzeit so kurz wie möglich 
halten, wenn man nicht eine Ausfüh¬ 
rung der Stromversorgungsstecker zur 
Verfügung hat, die eine spätere 
Montage der Anschlußstifte ermög¬ 
licht. In kommerziell gefertigten 
Netzteilen wird der Anschluß der 
Stromversorgungskabel meistens über 
Klemmsteine erfolgen, die auf der 
Platine befestigt sind und in die die Ka¬ 
bel dann einfach, wie in eine Lüster- 
klcmme. eingeklemmt werden. Hierbei 
sind die Punkte mit Masse, 5-Volt und 
12-Volt ganz einfach mit Hilfe eines 
Vielfachmeßinstrumentes im Span¬ 
nungsbereich zu ermitteln oder dem bei¬ 
liegenden Anschlußplan zu entnehmen. 
Leider kann hier keine allgemein¬ 
gültige Bauanleitung für alle auf dem 
Markt befindlichen Diskettenlauf¬ 
werke gegeben werden, da jeder Herstel¬ 
ler sein »eigenes Süppchen kocht«, wie 
der Autor beim Vergleich von Disket¬ 
tenlaufwerken verschiedener Hersteller 
leider feststellen mußte, so daß es 
durchaus zu Abweichungen von der ge¬ 
schilderten Bauart kommen kann, be¬ 
sonders was die Art der für Stromver¬ 
sorgung und Shugart-Bus verwendeten 
Stecker angeht. Die meisten dieser 
Stecker sind jedoch handelsüblich und 
von größeren Elektronikversendern zu 
beziehen. 

Gleiches gilt auch für die Bauteile, die 
zur Erstellung des Netzteiles benötigt 
werden. Hierbei müssen nun zwei Ver¬ 
sionen unterschieden werden, da die 


5 W'-Floppy ja ein stärker dimensio¬ 
niertes Netzteil benötigt. Für diejeni¬ 
gen, die ein solches Netzteil im Eigen¬ 
bau erstellen wollen, hier ein Schaltbild 
mit Angaben zur Dimensionierung für 
die einzelnen Anwendungen und einer 
kurzen Funktionsbeschreibung (siehe 
Schaltbild). 

Über eine Sicherung ward dem Trans¬ 
formator Strom zugeführt. Am Aus¬ 
gang des Transformators stehen 2 x 9V 
Wechselspannung zur Verfügung, die 
jeweils in einem Brückengleichrichter 
in Gleichstrom umgewandelt werden. 
Die folgenden Kondensatoren glätten 
die Gleichspannung und anschließend 
gelangt diese dann auf zwei Span¬ 
nungsregler, die für eine hochkonstante 
Ausgangsspannung von 12 bzw. 5 Volt 
sorgen. Die ein- und ausgangsseitig am 
Spannungsregler angebrachten Kon¬ 
densatoren von 100 nF verhindern 
wilde Schwingungen des Spannungsreg¬ 
lers. Ein separates Netzteil für die 
Stromversorgung des Diskettenlauf¬ 
werkes ist unumgänglich, da die im Mo¬ 
nitor eingebaute Stromversorgung 
nicht für den Anschluß eines zweiten 
Laufwerkes ausgelegt ist und »in die 
Knie gehen« würde. Beim Aufbau sollte 
man auf ausreichende Kühlung der 
Spannungsregler achten, da diese über 
eine integrierte Schutzschaltung verfü¬ 
gen, die bei zu hohen Temperaturen des 
Reglers diesen abschalten und das 
Diskettenlaufwerk dann nicht mehr ar¬ 
beitet. Am besten schraubt man die Reg¬ 
ler an das Gehäuse, in dem das Disket¬ 
tenlaufwerk untergebracht wird, und 
verwendet dieses auf diese Art und 
Weise zur Ableitung der beim Betrieb 
entstehenden Wärme. Bei einigen 
Fertiggehäusen sind für diese Art der 
Wärmeableitung bereits Bohrungen 
vorgesehen. 

Benötigte Teile für das Netzteil: 


Transformator prim.220V sec. 2 x9 V, 
je 0,5 - 0,8A (je 2A) 

Gleichrichter B 40 C 1500 (B 40 C 
3200) 

Elektrolytkondensator 2200 Mikro- 
Farad/16V (4700 M.-Farad/16V) 
Elektrolytkondensator 1500 Mikro- 
Farad/16V (2200 M.-Farad/16V) 
Kondensatoren 100 nF 
Spannungsregler UA 7805 (UA 78 S 
05) o.ä. 

Spannungsregler UA 7812 (UA 78 S 
12) o.ä. 


Für die Dimensionierung der Bauteile 
sollten diese Werte als Mindestwerte 
eingehaltcn werden. Eine eventuell 
höhere Ausgangsspannung des Trans¬ 
formators sollte jedoch ca. 2 x 10 Volt 
nicht überschreiten, da die Span¬ 
nungsregler dann mit einer unzulässig 
hohen Eingangsspannung belastet 
würden (max. zulässige Eingangsspan¬ 
nung 30 Volt). Da am UA7812 sich die 
über beiden Elektrolytkondensatoren 
anliegenden Spannungen addieren, 
würde dieser bei einer höheren Aus¬ 
gangsspannung des Transformators 
bereits mit einer unzulässig hohen 
Spannung beaufschlagt. Außerdem 
steigt mit wachsender Eingangsspan¬ 
nung die Wärme, die abgeführt werden 
muß, eine bessere Kühlung ist erforder¬ 
lich. Ebenso ändern sich die Werte für 
die Spannungsfestigkeit der Konden¬ 
satoren, da die an ihnen eingehende 
Spannung ca. 50 % höher als die Aus¬ 
gangsspannung des Transformators ist. 
Bei einer Ausgangsspannung von 2 x 10 
Volt erhält man so ca. 15 Volt an den 
Kondensatoren, diese sollten deshalb 
wenigstens bis zu dieser Spannung 
spannungsfest sein. Ein Aufbau des 
Netzteiles kann z.B. auf einer Lochra¬ 
sterplatine erfolgen. 

W. Wantia 


Schaltung Netzteil für Floppy 


Gleichrichter 
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CP/M-Dienstprogramm 


»»SETUP” 


- Einlegen einer CP/M-Systemdiskette, auf der sich 
SETUP.COM befindet, und Booten mit ”ICPM'’ 

- beim Erscheinen von "A> ” Eingabe von "SETUP” 

Es werden dann nacheinander die vorhandenen Einstellun¬ 
gen angezeigt und gefragt ”Isthiscorrect(Y/N):". Mit "Y" wird 
der alte Inhalt übernommen, nach "N" können Änderungen 
eingegeben werden. 


Die auf der Original-Systemdiskette enthaltene Steuer¬ 
zeichenfolge sieht wie folgt aus: 

"\@ww'\a @ @")wwCP/M 2.2.TM 

Dies entspricht z.B. folgenden BASIC-Befehlen: 

INK 0,23,23: INK 1,0,0: BORDER 23,23: PRINT”CP/M 2.2..” 


** Initial command buffer 

Die Eingabe eines auf der Diskette vorhandenen Program¬ 
mes oder eines Konsol-Befehles, gefolgt von 'M, führt zum 
Autostart beim Booten von CP/M; z.B. gibt 


Um unter CP/M im Mode 1 zu arbeiten, kann folgender 
String benutzt werden: 

“DQ\./L"LCP/M 2.2 - MODE l'-EM 


dir'M 

automatisch das Inhaltsverzeichnis aus. 

** Sign-on string 

Hier können Bildschirmsteuerzeichen und die, nach dem 
Booten, erscheinende Meldung untergebracht werden. 


(in Basic. MODE 1: LOCATE 12,12: PRINT”CP/M 2.2 - 
MODE 1”) 

Mit dem CPC-Handbuch, Kapitel 9, Seite 2-4 und einer 
ASCII-Tabelle (z.B. Handbuch, Anh. III. S. 1) lassen sich 
weitere Bildschirmeinstellungen nun sinngemäß durchfüh¬ 
ren. Da die ASCII-Angaben im Handbuch für die Zeichen 0- 
31 zum Teil fehlerhaft sind, hier ein kurzer Auszug: f=CTRL) 


Im Handbuch für das Schneider Diskettenlaufwerk DDI-1 
kommt die Beschreibung des nützlichen CP/M-Dienstpro¬ 
grammes SETUP, wie vieles, leider zu kurz. Mit den folgenden 
Ergänzungen wird ein sinnvoller Gebrauch der Funktionen 
möglich, die beim ersten Laden (Booten) von CP/M aufgeru¬ 
fen werden: 

--Autostart von Programmen >> Initial command buffer 

- Initialisierung des Bildschirms > > Sign-on string 

- Initialisierung des Druckers > > Printer power-up string 

- Tastaturbelegung definieren > > Keyboard translations 

- Funktionstasten definieren > > Keyboard expansions 

Auf die weiteren Funktionen soll an dieser Stelle nicht einge¬ 
gangen werden. 

Start einer SETUP-”Sitzung”: 


Kontrollzeichenkommandos sind wie folgt zu verwenden: 

Soll z.B. der Bildschirmrand (Border) in Farbe 23 erstrahlen, 
so muß dem Bildschirm folgende Steuerzeichenfolge über¬ 
mittelt werden: 

"29;23;23 (Kapitel 9/Seite 4 des 464-Handbuches) 

Die Werte hinter dem Border-Steuerzeichen 29 werden dabei 
nach Modulo 32 ausgewertet, das heißt, es gilt der Restwert 
nach Teilung durch 32. 

Im Sign-on-String kann die Steuerzeichenfolge nun wie folgt 
aussehen. 

"Jww 

Hierbei bedeuten: 

“- CTRL 
] - 29 

w - 23 (ASCII ”w”=119; 119 Modulo 32 = 23) 


86 cpc 


2 ’86 Sonderheft 




iimimmiiiiii 


DEZ 

ASCII 

DEZ 

ASCII 

DEZ 

ASCII DEZ 

ASCII 

00 


08 

‘H 

16 

-p 

24 

X 

01 

"A 

09 


17 

•Q 

25 

"Y 

02 

B 

10 

"J 

18 

R 

26 

Z 

03 

C 

11 

K 

19 

'S 

27 


04 

D 

12 

'L 

20 

T 

28 

*\ 

05 

'E 

13 

M 

21 

*U 

29 

1 

06 

F 

14 

'N 

22 

"V 

30 

"> 

07 

Ci 

15 

O 

23 

w 

31 



** Printer power-up String 

Hier können, entsprechend den Bildschirmsteuerzeichen, die 
gewünschten Druckersteuerzeichen untergebracht werden. 
Zur Wahl der NLQ-Schriftarl beim NLQ 401 lautet z.B. der 
String: 


'[x'A 


entspricht< ESO ”x"CHR$(l) 


Für den verbreiteten Drucker Star SG 10 muß es so aus- 
sehen: 

IB'D entspricht< ESO ”B”CHR$(4) 

Weitere Steuerzeichen sind sinngemäß möglich. 

** Keyboard translations 

Hiermit können den Tasten neue ASCII-Werte zugewiesen 
werden. Es wird für die Änderung folgendes Menue ausge¬ 
geben: 

A - Eingabe neuer Tastenbelegung 
D - Löschen der Tastenbclegung Nr. () 

C - Löschen aller Tastenbelegungen 

F - Eingabe beenden 

Die Eingabe kann z.B. lauten: 

c < ENTER> a,66,27.21,10 < ENTER> f< ENTER> 
und belegen die ESC-Taste (66) wie folgt: 


Normal 

Shift 

Control 


- 27 - “| (ESC) 

- 21 - “LJ 

- 10 - “J 


Weiterhin sind in Verbindung mit der Eingabe von Expansion¬ 
strings max. 32 Expansion-Tokens mit den Nummern 128 - 
159 möglich. Die kleine ENTER-Taste im Ziffernblock (Taste 
Nr. 6) kann z.B. wie folgt belegt werden: 

a,6,128,128,128, < ENTER> f< ENTER> 

und ruft dann bei Tastendruck den in den folgend beschriebe¬ 
nen Keyboard expansions abgelegten String auf. 

** Keyboard expansions 

Hier können Erweiterungsstrings abgelegt und auf Tasten¬ 
druck aufgerufen werden. Soll z.B. ein Programm ’HELP.COM" 
mit der oben belegten ENTER-Taste gestartet werden, so muß 
die Belegung lauten: 

a,0,help“M < ENTER> f < ENTER> 

Hierbei ist daraufzu achten, daß den bei den Keyboardtrans- 
lalions benutzten ASCII-Nummern 128- 159 hier die Token- 
Nummern 0-31 entsprechen. 

Die folgenden Optionen sollen hier, wie gesagt, nicht weiter be¬ 
schrieben werden (sie betreffen andere Schnittstellenfunktio¬ 
nen). Die entsprechenden Fragen sind mit ”Y” zu beant- 
worten, bis die Übernahme des neuen Konfigurations- 
Sektors erfolgt. Anschließend kann mit dem letzten ”Y” ein 
CP/M-Kaltstart erfolgen und damit die geleistete Arbeit über¬ 
prüft werden. 

Mit den beschriebenen SETUP-Optionen lassen sich nahezu 
beliebige Systemeigenschaften erreichen, die automatisch 
nach dem Booten zur Verfügung stehen und das Arbeiten mit 
CP/M-Programmen wie z.B. auch Wordstar oder dBase sehr 
komfortabel gestalten. K.-P. Trenkel 



Universeller EPROM-Programmer 4003 
für Schneider CPC 464 / 664 / 6128 

■ Programmiert alle gängigen EPROM-Typen ( z.B.; 2716,-32, 
-64,-128,2508,-16,-32,-64...) » Voll menügesteuerte Soft¬ 
ware auf Kassette oder Diskette ■ Kein Schalten, Stecken 
oder Löten nötig ■ Programmierspannung wird im Gerät 
erzeugt ■ Verbindung zum CPC über Flachbandkabel und 
Interface-Karle ■ Gleichzeitiger Anschluß der Floppy 
möglich ■ Rote und grüne Leuchtdiode zur Betriebs-Art- 
Anzeige ■ Komplett mit 28 poligem Textool-Sockel ■ 

■ Ferliggerit 464/664 DM 289,50 ■ Fertiggerät 6128 DM 319,50 ä 
Bausitz mit Anleitung für 464/664 DM 239,- ■ Bausatz mit Anleitung 
für 6128 DM 269,- ■ Software auf 3* Diskette 4 DM 15,- / auf 5.25* Diskette r DM 5,-* 

EPROM-Karte 2 - 6 4 Hy te für alle CPC 

■ Wahlweise beslüokbar mit 2-64 KByte EPROM-Kapazi- 
tit ■ Arbeitet mit den EPROM-Typen 2716,-32,-64,-128 

■ Durchgeführter Erweiterungsbus { Floppy kompatibel ) 

• Autostart von BASIC- und/oder Assembler-Program¬ 
men ■ Komplett mit umfangreicher und komfortabler 
Software auf Kassette oder Diskette ■ Gleichermaßen 
für Profis und Einsteiger geeignet » 

■ Fertiggerät für 464/664 DM 249,50 * Fertiggerät für 
6128 DM 259,50 * Bausatz mit Anleitung für 464/664 
DM 219,50 ■ Bausatz mit Anleitung für 6128 DM 229,50 

■ Software auf 3* Diskette + DM 15,- ■ Software auf 5.25* Diskette t DM 5,- ■ 

Speedy 100-80 der Drucker für alle CPC 

■ 100 Zeichen pro Sekunde schnell ■ FX80 kompatibel 

■ Bis zu 142 Zeichen pro Zeile ■ Optionaler Drucker¬ 
puffer ■ Grafikfähig » Kein doppelter Zeilennorsehub 

■ Direkt anschluRfihig ■ Internationale Zeichensälze 
• Friklionswalze und Traktorantrieb serienmäßig ■ Ein¬ 
gebauter Selbstlest ■ Bidirektional Druckweg optimiert 
■ Optimales Preis-Leistungsverhältnis ■ 

■ Komplett mit deutschem und engl. Handbuch DM 739,- ■ 
Zusätzlicher Druckerpuffer . 2K DM 25,- ■ 4K DM 50,- ■ 
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Druckerkabel 


Softwareangebot auf Anfrage. 


■ Alle Preise inkl. Mehrwertsteuer. 
• Alle Artikel ab Lsger lieferbar. 


für CPC 464/664 DM 35,- für CPC 6128 DM 39,~ 

DOBBERTlfl 

inDU/TRIE-ELEKTROniK 

Brahmsslraße 9, 6835 Brühl. Tal.: (06202) 71417 


für 


^ best , i HtVJ • • 


WlllWSptKlS 
Cheops 
Wn'togames C/D 
The Süden Bond C/D 
Der Waue Kristall 0 
Working back Worids 3 
Zorc 

Si>ace Invasion 
Freitag der 13. C/D 
Secret D»aryof Adrian Mole 
Yiea " “ 


~>&l 


39.— ’ 
29— 
49—/59.— 
45.—/55.— 
69 — 

49— 
35— 
29 — 
39-/49— 
39— 


SPIELE 
Shorts Fusfl 
Chili« 

Finders Keepers 
LüCcmotion 
Subsunk 
Mr. Freeze 

fo/muia One (Autorennen, aklrvt 

The wild BoncT 

Nontefragneos 

Soul ofa Robot 

Blrrtcy 

Bon ly 

Caves cf Dxm 


Cylu 

Don’t Pamc 
HojsaotUsher C/D 
KarTs Treasure Hun’ 
Thurderbrcs 

Message fron Andromeda 
Vagan Attaca 
Wiriow Pattern 
Alien 6 

Twnadc 4.cw leve 
Barry Mc. Gvegan’s 8oxing 
Daley ThoirpsousSupertest 
Hypersoorts 
Midnlfltit Shaflow 


39 — 
39—/49 — 
29- 
29- 
29.—/45. — 


39— 

35 — 
35— 
39 — 


HARDWARE 

CPC 464 Grün-/Colormonitor 698.—/1158.- 

CPC 664 Grün-/Colormonitor 998,—/1498.- 

CPC 6128 Grün-/Colormonitor 1 398—/1858- 

Joyce PCW 8256 komplett 2158 - 

DDI-1 Erstlaufwerk 728- 

Cumana 3”-Zweillaufwerk (wie FD-1) 398- 

Schneider Drucker MP 2000:105 CPS, Near 
Letter Quality, 2K Buffer,Traktorfor. 698- 

MP-1 Modulator für CPC 464 128- 

MP-2 Modulator für CPC 464/664/6128 148- 

RS 232 Schnittstelle für Modem u.a. 148.- 

Lightpen inkl. Software 99 - 

Sprachsynlhesizer inkl. Software 149.- 

AMX-Mouse inkl. Software 298- 

Traktorfür NLQ 401 65,- 


e Kong Fu 
Bruce Lee C/D 
Fu-Kung in Las Vegas 
Gyroscope 

Grand Prix Rallye II C/D 
Genesis (Ad ventum CcnstroctWn Set) 20 — 
Fighlmg Warnor4 LxpkxJing Fist D 69— 
A View toaKii C/D 39—/49— 
Frankie tzashed on Jupiter D 49.— 
Zaxxcn 39— 

Hexenküche C/O 29-/39— 

SpyvsSpyC/D 39-/49 — 

Die NeverEnding Slory 39 — 

3D Ohess (Cyrus II) C/0 
30 Grand Prix C/O 
3D Boxing C/0 
3D Stunt Rider C/D 
The Way of the expkxling Fist 39 — 
lechncian Ted 35— 

They so« a Million (Decathlon, Jet Set Wffly, 
Rocco. Sabre Wulf, Spy Hunter) 35— 
Elite C/D 69-/79— 

inpossiWe Mission C/D 49-/59— 
Triple Backs 13 Spiele v FiretMid) D 59— 
Hi-Rise C/D 29—/39 — 


39-/49— 
39.-Z49- 
39-/49 — 
25-/45 — 


Fighting Warnor 
Terror molmos 
Our Darach 

Daley biompson's üecathlon 
Rocky HorTor Show 
The Hobbit mit Buch 
loids cf Midnight C/D 
Frank Brunos Boxing C/D 
fVte Position 39— 

Hacker 39— 

Station (3D Vextor-GrafiK spitze!) 35 — 


29 — 
29— 
35 — 
29 — 
29 — 
49— 
39—/49— 
39—/49— 


Arwonoerprogramine 
Mulfiadresscn C/D 
Mult.daie- C/D 
£M.S.-0ateisysifim 
Mu'titext C/D 
Multllgger D 
MUtikalkulatOr D 99— 

Mi.ltivocaoel C/3 49—/59— 

CM-Bas»c 1 0 BasiWrw. C/D 39.—.'49— 


59-/99— 
59-/69 — 
99— 
79—/99.— 


Förth D 198- 

Nevada COBOL Comprler D 109- 
Nevada FORTRAN CompHcr C 189- 
Pasca/MT+o 198- 

CBasic Compiler D 198- 

C-ComoilerD 159— 

Wordstar 30 mit Mailmerge D 19*- 
Mpltiplan (464+664 n rp. Erw.fD t98- 
dBase II (464 • 664 nur m. Erw ) ö 198- 


Mars Port Pari 1 C/D 
Master 0 / the larrps 
Gams ol Stradus 
Saltelite Warrior C/0 
Airwolf 

Battle beyound the Stars 
Bounty Bob stnkes back 
Chimera 
Choppe* Squad 
Combat Lyra. 

Confuston 
üambüsters 
Dark Sta 1 
Death Pit 
Fruity Frank 
Ghostbusters 
Rare hat Macx 
Red Arrows C/D 
Spitfire 40 
Sta-' Aveng« 

The Devils Crown C/D 
Wizard s Laif C/D 
World Series Baseball 


39-/49.— 
39— 
29— 
29—/45 — 
25— 


35— 
29— 
3S— 
29— 
29 — 
29 — 
49— 
35— 
35-/45 — 
35- 
25 — 
29—/4 5— 
29—/39— 
25.— 




niHP 1 ijcn mov 
lui ii u i i_t\ 11 ri/\ 


Postfach 1461, 7920 Haidenheim, Tel. (0 73 21) 4 66 64 
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Directory For Drive A; User 0 Tabelle1 


Name 

Bytes 

Rees Attributes 

Name 

Bytes 

Rees 

Attributes 

ANLEIT TXT 

lk 

2 Dir RW 

DB 

KEY 

2k 

16 

Dir 

RW 

DB SUB 

lk 

1 Dir RW 

DBASE 

COM 

20k 

158 

Dir 

RW 

OBASEOVR CDM 

41k 

328 Dir RW 

DIR 

COM 

15k 

114 

Dir 

RW 

J12DCPM3 EMS 

40k 

320 Dir RW 

PIP 

COM 

9k 

68 

Dir 

RW 

PROFILE SUB 

lk 

1 Dir RW 

SETKEYS 

COM 

2k 

16 

Dir 

RW 

SUBMIT COM 

6k 

42 Dir RW 

TYPE 

COM 

3k 

24 

Dir 

RW 

Total Bytes 

s 

141k Total Records 

» s 1090 Files Found = 

12 


Total lk Blocks = 

141 Used/Max Dir 

Entries 

For Drive A: 

17/ 

64 



Der 

letzte 

Schliff 

dBASE II - Startdiskette für 
Schneider JOYCE 


Endlich ist sie erhältlich, die JOYCE- 
Version von dBase II. Drucker- und 
Bildschirmanpassung sind gelöst, aber 
eine Kleinigkeit ist noch zu verbessern: 

Man kann zwar mit der Sicherheitsko¬ 
pie schon arbeiten, hat aber lediglich 
maximal 49 KByte für Daten zur Ver¬ 
fügung, und dies ist oft zu wenig. Zwar 
kann man auf die HELP-Funktion ver¬ 
zichten, das File DBASEMSG.TXT 
löschen und erhält so nochmal 60 
KByte Platz. Die beiden Systemfiles 
DBASE.COM und DBASEOVR.COM 
sind jedoch notwendig und belegen im¬ 
mer noch über 60K. Einfach dBase la¬ 
den und dann Diskette wechseln geht 
also nicht. Oder doch? 

Es geht!!! 

dBase erwartet diese Files immer auf 
dem Laufwerk, von dem sie geladen 
wurden. Also braucht man sie nur in die 
glücklicherweise vorhandene RAM- 
Disk laden und von dort aus starten. 

Für CP/'M und dBASE wird die RAM- 
Disk mit ”M:" zum Bezugslaufwerk er¬ 
klärt, nach dem Start von dBASE wird 
mit ”SET DEFAULT TO A” die nor¬ 
male Floppy für den Datenverkehr de¬ 
finiert. Zusammen mit wohldosierten 
RESETs bei Diskettenwechsel stehen 
nun volle 173 KByte für Daten zur Ver¬ 
fügung. Was will man mehr... 
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Man will mehr!!! 

Jetzt sollte das Ganze noch möglichst 
schnell und von selbst geschehen, und 
außerdem mit weniger Diskettenwech¬ 
sel. CP/M-Disk rein und booten, 
Diskette wechseln, dBASE laden, auf 
die Datendiskette umsteigen und 
endlich mit der Arbeit beginnen - das 
nervt. 

Also muß eine Automatik her... und 
so geht's: 


Bei jedem Start von CP/M wird eine 
eventuell vorhandene Befehlsdatci na¬ 
mens PROFILE.SUB ausgeführt, die 
das für uns erledigen kann. 



Da wir auf die Sicherheitskopie (!!!) von 
dBASE auf alle Fälle das File 
SETKEYS.COM zur Tastaturdefmie- 
rung kopieren müssen, können wir 
gleich noch etwas mehr mitnehmen: 

Löschen Sie auf der dBASE-Kopie (!) 
das Help-File mit "ERA DBASEMSG. 
TXT". Legen Sie die CP./M-Diskette ein 
und kopieren folgendes mit "PIP M:= 
(-)”: 

"PIP.COM” 

"TYPE.COM” 

"SETKEYS.COM’' 

"SUBMIT.COM" 

"DIR.COM" 

"J12DCPM3.COM" 

Laden Sie Basic und erstellen Sie mit 
dem Editor RPED die beiden unten 
näher beschriebenen Files PROFI¬ 
LE.SUB und ANLEIT.TXT auf Lauf¬ 
werk "m:’ (Laufwerk im RPED-Menu 
ändern, auch die Filenamen müssen 
stimmen!!!). Verlassen Sie RPED mit 
EXIT. 


Geben Sie anschließend ”M:” ein, 
drücken ’STOP’ und wechseln auf die 
dBASE-Kopie (!). 

Mit "PIP A:=*.*" werden die Daten 
jetzt auf die dBASE-Disk gespeichert 
und Ihre Startdiskette ist fertig! 


Von jetzt an brauchen Sie nur noch den 
JOYCE einschalten, diese Diskette ein- 
legen und dBASE ist sofort verfügbar. 
Alles was Sie noch beachten müssen, ist 


der RESET zur rechten Zeit und das 

SET DEFAULT TO A zu Anfang. 

Schauen Sie sich jetzt Ihre dBASE- 
Diskette mit "DIRÄALLÜ" an; sie sollte 
wie in Tabelle 1 beschrieben aussehen: 


m. 




Wenn dem nicht so ist, dann haben Sie 
irgendwo einen Fehler gemacht, also 
nochmal von vorne (oder entnervt auf 
Karteikästen umsteigen...). 

Und hier sind die Files, die Sie selbst er¬ 
stellen müssen: 

(Bitte geben Sie sie genau ein!!!) 

Das erste erhält den Namen 

PROFILE.SUB: 


setkeys db.key 
pip 

< m:=dbase.com 

< m:=dbaseovr.com 

< 

type anieit.txt 
m: 

dbase 

Hiermit werden automatisch beim Start 
die Tastatur umdefininiert, die dBASE- 
Files kopiert und richtig gestartet. 

Gleichzeitig wird mit "TYPE AN¬ 
LEIT.TXT” ein kurzer Kommentar ge¬ 
druckt, der Sie an die weiteren Schritte 
erinnern soll. Diesen Teil können Sie 
nach Belieben gestalten oder auch ganz 
weglassen (dann aber auch "TYPE AN¬ 
LEIT.TXT" im PROFILE-Programm 
weglassen!!). 

Mein Vorschlag für ANLEIT.TXT: 

Startanleitung wie folgt eingeben: 

. (Datum) 

. reset 

. set default to a 


rf 
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dann Datendiskette 
einlegen und weiter 
. reset... etc. 


Viel Vergnügen mit Ihrem "neuen’ 
dBASE II. 

Michael Anton 
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Der Schneider CPC trägt in seinem Na¬ 
men den stolzen Titel »Personal Com¬ 
puter«. Mit 64K Speicherplatz, 80 
Zeichen auf dem Bildschirm und dem 
Diskettenbetriebssystem CP/M ist dies 
wohl auch nicht übertrieben, wenn da 
nicht das 3”-Diskettenlaufwerk wäre. Die 
relativ langsame Geschwindigkeit, die 
bloß 180K Diskettenkapazität, die ein¬ 
seitige Diskettenbenutzung und die Ab¬ 
weichung von jeglichem Diskettenstan¬ 
dard zeugen nicht gerade von der Qualität 
eines Personal Computers. 

Dies haben auch findige Zubehörlie¬ 
feranten entdeckt und ein 5 l A"- 
Diskettenlaufwerk für den Schneider 
entwickelt. Nun gibt es auf dem Markt 
zahlreiche Systeme, die als zweites 
Laufwerk zur Schneider-Floppy an¬ 
geschlossen werden. Das hat den Vor¬ 
teil, daß man nicht auf das Schneider- 
Format verzichten muß und trotzdem 
die Leistung eines größeren Laufwerks 
zur Verfügung hat, obwohl auch hier 
durch den Schneider Controller die Ka¬ 
pazität auf40 Spuren pro Diskettenseite 
beschränkt ist. Müßig ist allerdings die 
Benutzung von zwei verschiedenen 
Diskettenformaten - dies würde auch 
einem professionellen Einsatz als Per¬ 
sonal Computer widersprechen. 

Das hat die Firma Vortex erkannt und 
eine Diskettenstation mit Controller 
entwickelt, die durch ihre Leistung für 
einiges Aufsehen in der Fachwelt ge¬ 
sorgt hat. Von Data Media ist ebenfalls 
ein 5 ^"-Laufwerk entwickelt worden, 
das vom Schneider Controller un¬ 
abhängig ist. Das Vortex-Laufwerk be¬ 
schreibt 80 Spuren pro Diskettenseite 
beidseitig und erhält dadurch eine 
Kapazität von 704Kpro Diskette. Bei ei¬ 
nem Doppellaufwerk steht also auf zwei 
Disketten eine Kapazität von über 1,4 
MByte zur Verfügung. Besonders ange¬ 
nehm ist auch die Geschwindigkeit so¬ 
wie die Gerätegröße, die beim Doppel¬ 
laufwerk noch nicht einmal das Volu¬ 
men des Einzellaufwerkes 1541 von 
Commodore erreicht. Mit diesem Flop- 
pylaufwerk wird also der Schneider zu 
dem, was er in seinem Namen schon 


CP/M-Diskettenformate 


Wir legten also die Diskette mit dem 
Programm PARA, mit dem die Instal¬ 
lation der verschiedenen Diskettenfor¬ 
mate erfolgen kann, in das obere Lauf¬ 
werk (Laufwerk A) und haben es gela¬ 
den. Sofort bekamen wir eine Fehler¬ 
meldung, die uns darauf hinwies, daß 
PARA nur mit einem auf 38K einge¬ 
stellten CP/M läuft. Dies war aber nicht 
sehr schlimm, da gleichzeitig auch an¬ 
gezeigt wurde, was wir zu tun hatten. 
Es war das CP/M-Programm MOVCPM 
zu laden und damit der Arbeitsspeicher 
für CP/M einzustellen. Damit dies bes¬ 
ser geht, haben wir es direkt auf die 
PARA-Diskette kopiert und auch die 
CP/M-Systemspuren mit SYSCOPY 
auf die PARA-Diskette geschrieben. 
Nachdem unser CP/M richtig auf 38K 
eingestellt war, konnten wir mit PARA 
anstandslos arbeiten. 


Das Menue führte uns problemlos zum 
Ziel. Wir haben Laufwerk B als 
OSBORNE-Laufwerk installiert. Aller¬ 
dings fiel uns auf, daß in den bereits vor¬ 
gegebenen Formaten nur das OS¬ 
BORNE DD-Format vorhanden war. 


licherweise eine Wordstar-Diskette im 
OSBORNE-DD-Format zur Hand. 
Die Verarbeitung von nicht voreinge¬ 
stellten Formaten ist auch möglich, 
wenn die einzustellenden Parameter 


vorgibt zu sein, nämlich zum Personal 
Computer. 


Da es immer noch viele ältere OS- 
BORNE im SD-Format gibt, wäre es 
wünschenswert, wenn dies auch gleich 
mitgeliefert würde. Wir hatten glück¬ 


Allerdings nützt das beste Laufwerk 
recht wenig, wenn keine Software für 
das verwendete Format zur Verfügung 
steht. Um diesem Umstand abzuhelfen, 
hat Vortex ein Programm erstellt, das 
das BIOS des Laufwerkes program¬ 
miert. Hiermit kann menuegesteuert 
fast jedes Diskettenformat, das ein CP/M- 
Computer benutzt, auf dem Laufwerk 
implementiert werden. Dadurch kön¬ 
nen die Formate der gängigen CP/M- 
Computer gelesen und beschrieben 
werden. Wir waren natürlich neugierig, 
wie das funktionieren würde und be¬ 
schlossen, von einem OSBORNE das 
bekannte Textverarbeitungsprogramm 
Wordstar einzulesen, da wir gerade eine 
Version für einen OSBORNE zur Ver¬ 
fügung hatten. 
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des gewünschten Formates bekannt 
sind. Diese sind aber oft schwierig zu er¬ 
halten. deshalb ist es sicherer und auch 
bequemer, mit den voreingestellten 
Formaten zu arbeiten. 

Zur Probe haben wir dann direkt aus 
dem Programm PARA die Directory 
der OSBORNE-Diskette gelesen, und 
das klappte ausgezeichnet. Nach der 
Rückkehr ins CP/M zeigte uns der Com¬ 
puter an, daß auf Laufwerk A das 
Vortex-Format und auf Laufwerk B das 
OSBORNE-DD-Format installiert sei. 


Übertragen von Wordstar 


Wir haben nun sofort versucht, Wordstar 
von der OSBORNE-Diskette zu laden. 
Wie nicht anders zu erwarten, ging das 


natürlich nicht. Der Computer meldete 
sich mit der Fehlermeldung, daß der 
Speicherplatz zu gering sei. Das lag 
daran, daß wir ja den Speicher im CP/M 
auf 38K heruntergesetzt hatten, um 


ein anderes Disketten form at zu instal¬ 
lieren. Wenn wir nun Wordstar auf die 
Diskette im Laufwerk A, das immer 
noch auf Vortex-Format eingestellt war, 
kopieren würden, könnten wir mit 
einem CP/M arbeiten, das 44K als Ar¬ 
beitsspeicher zur Verfügung hat. 

Wir haben dann Wordstar auf die an¬ 
dere Diskette kopiert, CP/M neu ge¬ 
startet und dann Wordstar geladen. Das 
Laden klappte wunderbar, das Pro¬ 
gramm lief auch, aber der Bildschirm 
war ziemlich durcheinander geraten. 

Dies hatte mit dem uns bekannten Word¬ 
star wenig zu tun. Das ist auch nicht 
verwunderlich, da derOSBORNE über 
eine andere Bildschirmansteuerung 
verfügt als der Schneider. Wie jedes 
Programm, das bildschirmorientiert ar¬ 
beitet, muß Wordstar an den benutzten 
Computer angepaßt werden. 


Bildschirmanpassung 


Für die notwendige Anpassung haben 


wir das Programm INSTALL.COM, 
das sich auf der Wordstar-Diskette be¬ 
findet, geladen und mit der Installie¬ 
rung begonnen. Für denjenigen, der 
noch nicht mit diesem Installationspro¬ 
gramm gearbeitet hat, ist es sicher zu¬ 
nächst etwas verwirrend. Als erstes fragt 
das Programm - selbstverständlich in 
englisch - ob Wordstar erstmals einge¬ 
stellt werden soll. Da wir eine bereits 
einmal generierte Version hatten - wie 
alle gängigen Versionen, die erhältlich 
sind, für einen Computer bereits ge¬ 
neriert sind - antworteten wir mit N 
(nein). Danach erschien eine Auswahl¬ 
liste, von der uns der Punkt D am besten 
zusagte. Dort kann ein bestehendes 
Programm-File geändert und nach Ge¬ 
nerierung automatisch gestartet wer¬ 
den. Dann fragt das Programm nach 
der Bildschirmanpassung und stellt 
eine Anzahl verschiedener Bildschirme 
zur Auswahl. Der Schneider (oder auch 
der Amstrad) war, wie wir erwartet hat¬ 
ten, nicht dabei. Deshalb haben wir erst 
einmal alle angebotenen Terminals der 
Reihe nach probiert, denn es hätte ja 
sein können, daß eines paßt und wir uns 
dann die Arbeit der Generierung ”von 
Hand” hätten sparen können. Wir ha¬ 
ben dabei allerlei merkwürdige Bild¬ 
schirmaufbauten gesehen, die teilweise 
blinkten und hupten; aber keine der an¬ 
gebotenen Möglichkeiten war so, daß 
wir damit einverstanden sein konnten. 

Letztlich haben wir dann eingegeben, 
daß keiner dieser Bildschirme vorhan¬ 
den ist. 

Im nächsten Menue mußte der Drucker 
vorgegeben werden. Wir haben die 
Option A gewählt, da damit die meisten 
Drucker laufen. Dann kam die Schnitt¬ 
stelle an die Reihe. Der Schneider ver¬ 
fügt über eine Centronics-Parallel- 
Schnittstelle, das ist in dem Menue die 
Auswahl N. Nun mußten wir noch das 
Kommunikationsprotokoll mit N als 
nicht notwendig angeben und konnten 
uns dann durch Eingabe von N auf die 
Frage, ob die Generierung abgeschlos¬ 
sen sei, an die Bildschirmanpassung be¬ 
geben. Das geht so, daß zuerst die zu än¬ 
dernde Speicherstelle in Hexadezimal¬ 
schreibweise eingegeben wird, dann 
zeigt der Computer den bisherigen Wert 
an und fragt nach dem neuen Wert. Die 
Zahl muß auch hierin HEX eingegeben 
werden. Mit der Entertaste kann entwe¬ 
der der jeweilige Wert bestätigt oder bei 
der Speicherstelle um einen Wert er¬ 
höht werden. 


Wir haben mit der Bildschirmgröße be¬ 
gonnen und dazu muß in 0248 eine 19 
und in 0249 eine 50 geschrieben werden. 
Zur optimalen Cursoranpassung soll¬ 
ten jetzt folgende Werte eingegeben 
werden: 024A:01, 024B:1F (Cursor¬ 
positionierung), 024D bis 025C jeweils 
00, 025D:FF (für Spalte vor der Zeile), 
025E:01,025F:01 (Offset auf Spalte und 
Zeile, das ist notwendig, da die linke 
obere Ecke des Bildschirmes statt durch 
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die Koordinaten (0,0) durch (1,1) be¬ 
zeichnet wird), 0260 bis 0265 jeweils 00, 
0266.C9 (unbenutzte Routine mit Rück¬ 
sprung), 0267 bis 026E jeweils 00, 
026D:01,026E:12 (Löschen bis Zeilen¬ 
ende), 0270 bis 0283 jeweils 00. Es kann 
auch jetzt bis 02C4:00 eingegeben wer¬ 
den, jedoch führt die Eingabe von 
0284:01,0285:18,028B:01,028C: 18 dazu, 
daß das Menue von Wordstar invers auf 
dem Bildschirm angezeigt wird. Hier 
kann jeder Benutzer nach Belieben für 
sich entscheiden, was ihm lieber ist. 
Eine 00 in diesen Stellen führt zur nor¬ 
malen Anzeige. 

Jetzt müssen noch bis Speicherstelle 
02CE jeweils 00 eingegeben werden, mit 
Ausnahme der Stellen 02BC, 02BF, 
02C2,02C5 und02CB, in denen eine C9 
für den Rücksprung aus der unbe¬ 
nutzten Routine zu finden sein muß. 
Wichtig sind jetzt noch folgende Werte, 
die wahrscheinlich so schon eingestellt 
sind: 02CF:03, 02D0:09, 02D1:10, 
02D2:05,02D3:05. Mit der Eingabe der 
Adresse 00 wird die Generierung abge¬ 


brochen; das Programm fragt mehr¬ 
mals, ob die Parameter so gespeichert 
werden sollen; nach der Bestätigung 
wird dann Wordstar gestartet und sollte 
jetzt einen funktionsfähigen Bildschirm¬ 
aufbau liefern. 

Es sollte noch daraufhingewiesen wer¬ 
den, daß diese Anpassungen selbstver¬ 
ständlich auch mit dem Debugger 
DDT, der zu jeder CP/M-Systemdisket- 
te gehört, vorgenommen werden kön¬ 
nen. Die Adressen und die Werte än¬ 
dern sich dadurch nicht. Bei neueren 
lnstallationsprogrammen zu Wordstar 
muß nicht mehr unbedingt die 
Speicheradresse angegeben werden 
Hier genügt es oft, bei der Abfrage der 
Funktion den richtigen Wert einzuge¬ 
ben. Dafür ist in unserer Anleitung die 
Funktion der jeweiligen Adresse ange¬ 
geben. Mit einigen weiteren interes¬ 
santen Wordstaradressen sollten wir uns 
noch beschäftigen, da sie das Arbeiten 
erheblich vereinfachen können. In 
Speicherstelle 360 kann das Hilfsme- 
nue in seiner Grundeinstellung vorge¬ 
geben werden. Enthält die Adresse eine 
0, erfolgen keine Hinweise von Word¬ 
star mehr, bei einer 1 wird kein Hilfsme- 
nue angezeigt, bei einer 2 werden nur 
die Untermenues gezeigt, und bei einer 
3 werden alle Menues angezeigt. Dies 
bezieht sich auf die Grundeinstellung 
und kann im Hilfsmenue J immer noch 
geändert werden. Für einen geübten Be¬ 
nutzer ist es aber oft sehr lästig, die Me¬ 


nues nach Programmstart erst einmal 
abschalten zu müssen. Hier kann die 
Grundeinstellung nach den eigenen 
Bedürfnissen erfolgen. Den Blocksatz 
kann man mit Adresse 398 ein- bzw. 

ausschalten. Enthält sie eine 0, ist der 
Blocksatz ausgeschaltet, und bei FF ist 
er eingeschaltet. Ob das Inhaltsver¬ 
zeichnis der Diskette standardmäßig 
angezeigt werden soll, kann in 
Speicherstelle 363 festgelegt werden. 

Die Directory wird bei Programmstart 
ausgegeben, wenn die Adresse FF ent¬ 
hält, bei 0 wird es unterdrückt. Will man 
statt im Einfügemodus im Überschreib¬ 
modus arbeiten, dann braucht lediglich 
in Stelle 362 eine 0 enthalten zu sein. Bei 
einem FF ist der Einfügemodus einge¬ 
schaltet. 


Druckerprobleme 


Nun läßt sich wie gewohnt mit Word¬ 
star arbeiten. Wer allerdings glaubt, er 
könne jetzt, da dies bei der Installation 
so eingegeben wurde, einen normalen 
Centronics-Drucker an den Drucker¬ 
port anschließen, muß enttäuscht wer¬ 
den. Mit dem Schneider Drucker und 
dem mitgelieferten Kabel funktioniert 
das wunderbar. Wer allerdings ein an- 


datadesk ■ Das Computermöbel 


Ein multifunktionaler EDV-Arbeitsplatz für Büro und Heim schafft Ordnung und optimale Arbeitsbedingungen. 
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mit Metallführungen. 
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werkseitig verleimt und komplett montiert. 
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nutzt, wird feststellen, daß nach jeder 
gedruckten Zeile eine Leerzeile cinge- 
fügt wird. Dies liegt daran, daß beim 
Schneider der Centronics-Port auf Stift 
14 mit Masse belegt ist, was bei fast allen 
Druckern einen automatischen Zeilen¬ 
vorschub verursacht. Schneider hat das 
Problem so gelöst, daß in dem Flach¬ 
bandkabel die Phase, die den Pin 14 
verbindet, durchtrennt wurde. Da wir 
unser Kabel auch noch für andere 
Drucker und Computer verwenden woll¬ 
ten, haben wir uns mit einem kleinen 
Trick geholfen. Mit Hilfe eines Klebe¬ 
streifens haben wir den Pin 14 im 
Druckerport abgeklebt, so daß dort 
keine Verbindung mehr zustande kom¬ 
men konnte. Der Pin 14 befindet sich 
im Druckerport von oben gesehen auf 
der rechten Seite als 3. Stift. Da die bei¬ 
den rechts daneben liegenden Kontakte 
nicht belegt sind, haben wir die der Ein¬ 
fachheit halber auch direkt mit abge¬ 
klebt. Nach dieser kleinen Operation 
funktionierte unser Drucker wie ge¬ 
wohnt. Was bei der Druckeranpassung 
noch fehlt, ist die Einstellung von Word¬ 
star auf die verschiedenen Druckerty¬ 
pen. Da es aber eine Vielzahl von 
Druckern gibt, soll an dieser Stelle auf 
nähere Einzelheiten verzichtet werden. 


Cursorsteuerung 


Durch die Drucker- und Bildschirman¬ 
passung kann mit dem Programm gear¬ 
beitet werden, aber noch nicht so kom¬ 
fortabel wie es sein könnte. Wir stellten 
bei näherer Betrachtung nun fest, daß 
die Cursortasten alle möglichen Zeichen 
enthalten, nur nicht die Cursorsteue¬ 
rung; die ESC-Taste ist auch nicht mit 
Escape belegt. Es ist zwar möglich, mit 
Wordstar zu arbeiten, da es Computer 
gibt, die nicht über Cursortasten verfü¬ 
gen, so daß mit der CTRL-Taste gemein¬ 
sam mit verschiedenen Buchstaben der 
Cursor bewegt werden kann, aber man 
kann es sich auch besser vorstellen. Un¬ 
ter CP/M ist es, sowohl mit dem von 
Schneider, als auch mit dem von Vortex 
vertriebenen System möglich, die Ta¬ 
statur den eigenen Wünschen ent¬ 
sprechend zu belegen. 


Tastaturbelegung 


vorgesehene Programm INSTALL 
(nicht verwechseln mit dem INSTALL 
bei Wordstar), bei Schneider heißt es 
SETUP.COM. Nach dem Aufruf von 
INSTALL meldet sich das Programm 
mit einem Menue, das aus fünf Punkten 
besteht. Nummer 2 beinhaltet die Ta- 
staturbelegung. Nachdem wir die Taste 
”2’' gedrückt haben, gibt uns der Com¬ 
puter folgende Meldung bzw. Auswahl¬ 
liste: 

1 NORM Tabelle ist leer 

2 SHIFT Tabelle ist leer 

3 CTRL Tabelle ist leer 

4 Funktionstasten Tabelle ist leer 

5 Hauptmenue 


Das bedeutet, wir haben vier Mög¬ 
lichkeiten zum Belegen der Tasten zur 
Verfügung. 

Die drei Ebenen der Tastatur des Schnei¬ 
dersind uns schon von Basic oder ande¬ 
ren Programmen bekannt. Normaler¬ 
weise befinden sich auf der Tastatur die 
Kleinbuchstaben. Zusammen mit der 
SHIFT-Taste kann man die Großbuch¬ 
staben erhalten. Wenn in Basic eine Ta¬ 
ste gemeinsam mit der CTRL-Taste ge¬ 
drückt wird, erscheint auf dem Bild¬ 
schirm ein graphisches Symbol. 

Standardmäßig stellen diese Symbole 
Steuerzeichen für die Drucker- und 
Bildschirmanpassung dar. Im ASCII- 
Code sind das die Zeichen kleiner als 
30. Für die Bildschirmanpassung von 
Wordstar haben wir diese Zeichen be¬ 
reits benutzt. 

In Basic können die Tasten relativ leicht 
umdefiniert werden. Mit den Befehlen 
KEY und KEYDEF ist das unproble¬ 
matisch. Es gibt auch bereits Program¬ 
me, die das ausnutzen oder die Ta¬ 
staturdefinition unterstützen. Ein Bei¬ 
spiel dazu, wie die Zehnertastatur mit 
wichtigen Basicbefehlen belegt wird, 
findet sich beispielsweise in dem Buch 
”CPC 464 für Ein- und Umsteiger” aus 
dem Verlag Markt & Technik auf 
Seite 230. 


Wordstar-Steuer-Codes 


Unter CP/M ist die Tastatur auch mit 
Steuerzeichen auf der CTRL-Ebene be¬ 
legt. Wordstar benutzt diese ASCII- 
Zeichen zur internen Befehlsver¬ 
waltung. Um die Tastatur anzupassen, 
müssen wir erst einmal die wichtigsten 
Tastencodes in Hexadezimalzahlen 
herausfinden. Für die Wordstar-Befehle 
ergeben sich folgende Codes: 


Bei Vortex heißt das für diesen Zweck 


Tabelle 1 

ESC 
CTRL A 
CTRL S 


lb 

01 Cursor Wort links 
13 Cursor Zeichen links 


CTRL D 04 Cursor Zeichen rechts 
CTRL F 06 Cursor Wort rechts 
CTRL E 05 Cursor hoch 
CTRL X 18 Cursor runter 
DEL 7f Zeichen links löschen 
CTRL G 07 Cursorzeichen löschen 
CTRL Z la Zeile rauf rollen 
CTRL W 17 Zeile ab rollen 
CTRL T 14 Wort löschen 
CTRL Y 19 Zeile löschen 
CTRL P 10 Druckermenue 
CTRL O Of Formatierung 
CTRL K Ob Diskettenmenue 
CTRL J 0a Hilfsmenue 
CTRL Q 11 Kommandomenue 
CTRL I 09 Tab 
CTRL N Oe Leerzeile 


Nachdem uns nun diese Steuercodes 
bekannt sind, können wir die Tastatur 
so belegen, wie es uns gefällt. Die Min¬ 
destanforderung dürfte darin bestehen, 
daß die Cursorsteuerung über die Cursor¬ 
tasten und das Löschen der Buchstaben 
mit DEL und CLR erfolgt, daß ESC 
auch auf ESC zu finden ist und daß 
TAB auf der TAB-Taste liegt. Bei Be¬ 
trachtung der Standardbelegung (Schnei¬ 
der Handbuch Anhang III, Seite 14) 
stellen wir fest, daß DEL und TAB be¬ 
reits richtig belegt sind. Die sonstige 
Anpassung müssen wir nun vornehmen. 

Dafür drücken wir im INSTALL- 
Programm unter dem Menuepunkt 2 
(Tastaturbelegung) die Taste 1 zum Än¬ 
dern der NORM-Tabeile. Danach wird 
die bisherige Normtabelle - sie ist 
bisher leer - und ein neues Menue zur 
Änderung der Tabelle auf dem Bild¬ 
schirm ausgegeben. Wir wählen 3: Neu¬ 
eintrag. Das Programm fragt nun nach 
der Tastennummer und nach dem 
Token, das ist der Code des Befehls. Die 
Tastaturnummer finden wir im Schnei¬ 
der Handbuch auf Seite 16 im Anhang 
III. Die ESC-Taste hat die Nummer 66. 

Wir geben also bei der Frage nach der 
Taste die Nummer 66 ein. Diese darf in 
Dezimalschreibweise, also so, wie sie im 
Handbuch steht, eingegeben werden. 

Auf die Frage nach dem Token tippen 
wir die Hexadezimalzahl lb ein, was 
nach unserer Tabelle der Befehlscode 
für ESC ist. Danach erhalten wir die 
neue Normtabelle, die jetzt einen Ein¬ 
trag enthält und müssen erneut die Ta¬ 
ste 3 im Menue drücken, um einen 
weiteren Eintrag vorzunehmen. In die¬ 
ser Weise speichern wir für CLR die Ta¬ 
stennummer 16 und Token 07. Die 
Cursorsteuerung geben wir folgender¬ 
maßen ein: 

Tabelle 2 

Taste Token 

0 05 (Cursor rauf) 

8 13 (Cursor links) 

1 04 (Cursor rechts) 

2 18 (Cursor runter) 

Damit ist unsere Grundeinstellung 
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das Löschen der Zeichen geschieht mit 
den richtigen Tasten. Nun können wir 
uns noch einige Vereinfachungen einge¬ 
ben. Beim Formatieren mit CTRL B 
fragt Wordstar immer wieder Trennun¬ 
gen ab. Der Cursor kann dabei noch be¬ 
wegt werden und der Trennstrich (-) 
soll an der richtigen Stelle eingegeben 
werden. Praktisch ist es, wenn der 
Trennstrich sich auf der COPY-Taste 
bei den Cursor-Tasten befindet, da 
dann mit den Tasten Cursor rechts und 
Cursor links die richtige Stelle gewählt 
werden kann und mit der dazwischen 
liegenden COPY-Taste die Trennung 
gesetzt wird. COPY hat die Tastennum¬ 
mer 9 und der Bindestrich Token 2d. 

Damit wollen wir die Normtabelle 
abschließen. 

Es ist sinnvoll, die Cursortasten noch 
auf der Shift- undCTRL-Ebene zu bele¬ 
gen. Auf der Shift-Ebene können wir 
das Rollen des Bildschirmes auf und ab 
mit Cursor hoch und Cursor runter er¬ 
reichen, sowie das Verschieben des 
Cursors wortweise mit Cursor rechts 
und Cursor links. Dazu wählen wir im 
INSTALL-Programm die Veränderung 
der Shift-Tabelle an und geben fol¬ 
gende Werte ein: 

Tabelle 3 


Taste 

Token 


0 

la 

(Rolle rauf) 

8 

13 

(Wort links) 

1 

04 

(Wort rechts) 

2 

17 

(Rolle ab) 


Funktionstasten 


Nun ist unser Wordstar schon recht 
komfortabel. Aber es geht noch besser. 

Wir wissen, daß das Ende der Bear¬ 
beitung mit der Tastenfolge CTRL K 
und anschließend D geschieht. Schön 
wäre es, diese Tastenfolge auf eine Taste 
(am besten die Shift-COPY-Taste) zu 
legen. Um das zu erreichen, muß ein 
Token definiert werden, das diese Ta¬ 
stenfolge enthält. Im INSTALL-Pro¬ 
gramm geschieht dies über die Funk- 
tionstasten-Tabelle (Menuepunkt 4). 

Hier wird erst nach der zu definieren¬ 
den Tokennummer gefragt. Diese muß 
im Bereich zwischen 80 und 9f (jeweils 


hexadezimal) liegen. Die erste Funk¬ 
tionstaste (CTRL K, D) legen wir auf 
Token 80. Hier können wir wählen, ob 
eine Zeichenfolge in HEX-Zahlen oder 
in Buchstaben eingegeben werden soll. 

Mit CTRL H wird auf HEX-Eingabe 
und mit CTRL C auf Eingabe normaler 
Buchstaben (ASCII) umgeschaltet. 

Wir wollen mit dem Code für CTRL K 
beginnen und geben nach entsprechen¬ 
der Umschaltung den HEX-Wert Ob 
ein. Danach schalten wir auf ASCII- 
Eingabe um und drücken die Taste D. 

Mit der Enter-Taste beenden wir die 
Eingabe und können nun die nächste 
Token-Nummer in analoger Weise bele¬ 
gen. Es scheint zweckmäßig zu sein, 
auch noch das Springen zum Textan¬ 
fang und zum Textende vorzuprogram¬ 
mieren. Das sind CTRL Q,R und CTRL 
Q,C. Wirbelegen mitdieserTastenfolge 
(CTRL Q hat den HEX-Wert 11) die 
Token 81 und 82. Wenn wir nun in den 
anderen Menuepunkten (NORM-, 
SHIFT-, CTRL-Tabelle) eines dieser 
Token auf eine Taste legen, so wird 
diese Taste zur Funktionstaste. Legen 
wir also in der Shift-Tabelle Token 80 
auf Taste 9, können wir ab sofort in Word¬ 
star mit Drücken der Shift-Copy- 
Taste die Bearbeitung beenden und den 
Text speichern. In der CTRL-Ebene 
können wir jetzt die Token 81 und 82 
auf die Tasten 0 und 2 legen und mit 
CTRL Cursor rauf zum Textanfang 
oder mit CTRL Cursor runter zum 
Textende springen. Auf diese Art kann 
die gesamte Tastatur zu Funktionsta¬ 
sten umbelegt werden. 

Man könnte nun noch CTRL Cursor 
rechts mit Springen zum Zeilenende 
und CTRL Cursor links mit Springen 
zum Zeilenanfang belegen. Die Text¬ 
formatierung oder die Druckersteue¬ 
rung kann man auf die Zehnertastatur 
rechts neben der Normaltastatur legen. 

Jede gewünschte Kombination ist mög¬ 
lich und nur durch den Speicherplatz 
von maximal 128 Zeichen für die Bele¬ 
gung der Funktionstasten begrenzt. 

Auch ist es denkbar, ganze Textketten, 
wie die Anrede in einem Brief (Sehr ge¬ 
ehrter) oder den Schluß (Mit freund¬ 
lichen Grüßen), auf eine Taste zu legen 
und sich damit das Briefeschreiben 
erleichtern. 


Unterschiede zwischen 
IN STALL und SETUP 


Die Tastaturbelegung ist nach Generie¬ 
rung durch INSTALL vom Programm 
unabhängig im CP/M enthalten und 
kann in der gleichen Weise für jedes an¬ 
dere Programm verwendet werden. Hat 
man also einmal die Tastatur an Word¬ 
star optimal angepaßt, kann damit auch 


ein Wordstar-ähnlicher Editor, wie bei¬ 
spielsweise Turbo-Pascal, mit dieser an¬ 
gepaßten Tastatur bedient werden. 

Es wurde bereits erwähnt, daß diese Ta¬ 
staturanpassung sowohl mit dem Pro¬ 
gramm INSTALL von Vortex, als auch 
mit SETUP von Schneider erfolgen 
kann. Beim SETUP ist aber auf eine Be¬ 
sonderheit hinzuweisen. Das Pro¬ 
gramm unterscheidet nicht - wie oben 
für INSTALL beschrieben - die 
Normal-, Shift- und CTRL-Ebene in 
verschiedenen Menues, sondern er¬ 
wartet die Definition einer Taste auf al¬ 
len ihren Ebenen. Die Eingabe erfolgt 
durch Tastennummer, Token Normal¬ 
ebene, Token Shiftebene, Token CTRL- 
Ebene. Man muß also vorher die Bele¬ 
gung etwas besser planen als bei IN¬ 
STALL, weil man gleichzeitig sozusagen 
in drei Ebenen denken muß. Dieser Un¬ 
terschied bezieht sich aber nur auf die 
Bedienung, nicht auf die Funktion. Die 
Belegung der Tastatur nach eigenen 
Wünschen und die Definition von 
Funktionstasten ist mit SETUP in ähn¬ 
licher Weise wie bei INSTALL 
möglich. 

Wordstar läuft nach diesen Anpas¬ 
sungen auf dem Schneider mindestens 
so gut wie auf jedem anderen CP/M- 
System, vielleicht sogar durch die Bele¬ 
gung von Cursor-Tasten und Zehner¬ 
block noch bedienungsfreundlicher als 
bei manchem System, das nur eine Nor¬ 
maltastatur hat. Es ist also möglich, ein 
Wordstar, das im Büro auf einem pro¬ 
fessionellen Computersystem läuft, 
auch auf den Schneider zu übertragen 
und damit zu Hause weiterzuarbeiten. 

Wer also bereits eine Wordstar-Version 
hat, braucht nicht unbedingt für den 
privaten Bereich ein neues Textverar¬ 
beitungsprogramm anzuschaffen und 
zu erlernen. Allerdings müssen wir er¬ 
kennen, daß die Funktion "Verschie¬ 
ben von Blöcken", aufgrund Speicher¬ 
platzmangels, nur mit einem sehr klei¬ 
nen Block durchgeführl werden kann. 
Dieses Problem kann aber umgangen 
werden, wenn der zu verschiebende 
Block auf der Diskette, die beim Vortex- 
Laufwerk mit 704K in jedem Falle ge¬ 
nügend Kapazität bietet, zwischenge¬ 
speichert und an der richtigen Stelle 
wieder eingeladen wird. Damit dies 
nicht erforderlich ist und Wordstar, so¬ 
wie jedes andere CP/M-Programm, auf 
dem Schneider anstandslos läuft, ha¬ 
ben Vortex und Data Media eine 
Speichererweiterung entwickelt. Damit 
dürfte der Schneider dann den letzten 
Schritt zum Personal-Computer vollzo¬ 
gen haben. 


Anwendung für SUBMIT 


Die Qualität eines Betriebssystems 
zeigt sich erst, wenn man mehrere Be- 
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fehlsfolgen miteinander verknüpfen 
will. In Basic erfolgt das jeweils durch 
ein Programm, indem die Befehle ent¬ 
halten sind. Sollen mehrere Pro¬ 
gramme hintereinander abgearbeitet 
werden, ist das unter Basic, obwohl das 
Schneider Basic die notwendigen Be¬ 
fehle besitzt, nur schwer erreichbar. Je¬ 
des vorhergehende Programm muß die 
Laderoutine für das Folgeprogramm 
enthalten. Veränderungen der Rei¬ 
henfolge oder auch die Hinzunahme 
oder das Wegfallen einzelner Pro¬ 
gramme wird damit fast unmöglich. Bei 
CP/M gibt es ein Programm auf der Sy¬ 
stemdiskette, mit dem eine solche Ver¬ 
knüpfung leicht möglich ist. Das Pro¬ 
gramm heißt SUBMIT und teilt CP/M 
mit, welcher Befehl bzw. welches Pro¬ 
gramm nun abgearbeitet werden muß. 

Dazu legt es eine Systemdatei an, in der 
die erforderlichen Hinweise für das Be¬ 
triebssystem enthalten sind. 

Ein Anwendungsbeispicl ergibt sich in 
Verbindung mit Wordstar, besonders 
bei einem Wordstar, das von einem an¬ 
deren Computer angepaßt worden ist 
und deshalb keinen deutschen Zei¬ 
chensatz enthält. Von der Firma Schnei¬ 
der Data (früher Escon) gibt es ein Pro¬ 
gramm, das eine deutsche Tastatur mit 
deutschem Zeichensatz unter CP/M 
herstellt. Nun könnte, nachdem CP/M 
gestartet ist, erst die Tastaturdefinition 
geladen und dann das Laufwerk auf B 
umgestellt werden, damit Wordstar die 
Datendiskette in Laufwerk B benutzt, 
und danach könnte dann Wordstar von 
A geladen werden. Wir erstellen dazu 
eine Datei, die im Namen hinter dem 
Punkt SUB enthalten muß. Die Datei 
kann mit Wordstar - oder jedem ande¬ 
ren Texteditor, z.B. ED - erstellt wer¬ 
den. Wir nennen unsere Datei WS¬ 
LOAD.SUB, da wir damit die La¬ 
deroutine von Wordstar erstellen 
wollen. Die Datei müßte nun folgende 
Einträge enthalten: 

DEUTSCH < 

B: < 

A:WS < 

Mit dem Befehl DEUTSCH soll das 
Programm mit der deutschen Tastatur 
geladen werden. Es muß dazu natürlich 
unter dem Namen DEUTSCH.COM 
auf der Diskette enthalten sein. Mit B: 
wird auf Laufwerk B umgeschaltet und 
mit A:WS soll Wordstar von der 
Diskette in Laufwerk A geladen wer¬ 
den. Das < soll andeuten, daß jede Zeile 
mit der Enter-Taste abgeschlossen wer¬ 
den muß. 


... 


Für die Besitzer einer Vortex-Disket¬ 
tenstation mit dem Diskettenbetriebs¬ 
system VDOS 2.0 ergibt sich noch eine 
weitere Möglichkeit. Man kann hier 
auswählen, ob der Bildschirmaufbau in 
einer schnelleren Routine erfolgen soll, 
bei der die Windows nicht richtig be¬ 
nutzt werden können, oder ob er im 
normalen Tempo erfolgen soll. Da Word¬ 
star die Windowtechnik nicht benutzt, 
bietet sich der schnellere Bildschirm¬ 
aufbau an. Die SUB-Datei sieht dann 
folgendermaßen aus: 


DEUTSCH < 
FAST < 

B: < 

A:WS < 


Wir wollen nun, daß diese Befehlsfolge 
sofort abgearbeitet wird, wenn CP/M 
gestartet wird. Dafür gibt es im Be¬ 
triebssystem den Autostart-Bereich. Er 
kann mit dem INSTALL- oder SETUP- 
Programm definiert werden. Über Me- 
nue ist der Autostartstring, so heißt das 
zu startende Programm in INSTALL, 
sofort aufrufbar. In unserem Fall muß 
der Autostartstring heißen: SUBMIT 
WSLOAD. Er muß noch mit einem 
Carriage Return versehen werden, das 
ist der ASCII-Code 13 oder in hexadezi¬ 
maler Schreibweise OD. Der Effekt ist, 
daß nach Starten von CP/M SUBMIT 
automatisch gestartet wird und die Be¬ 
fehle, die in der Datei WSLOAD.SUB 
enthalten sind, der Reihe nach abar¬ 
beitet. 

Für die Vortex-Besitzer mit VDOS 2.0 
bietet sich hier sofort die Möglichkeit 
an, mit einem Programm, das HELLO.- 
BAS heißt und auf der Wordstardiskette 
enthalten ist, allein durch Einschalten 
von Laufwerk und Computer (oder 
durch Reset) automatisch CP/M zu la¬ 
den und dann durch Autostart und 
SUBMIT die obige Befehlsfolge abar¬ 
beiten zu lassen. Das Programm ist sehr 
einfach und sieht folgendermaßen 
aus: 

10 CP/M 

Es genügt also lediglich das Einlegen 
der richtigen Diskette in Laufwerk A 
und Anschalten des Computers, um in 
wenigen Sekunden mit Wordstar ar¬ 
beiten zu können. Bequemer geht es ei¬ 
gentlich nicht mehr. Mit einer solchen 
Verknüpfung lassen sich auch noch 
weitere positive Effekte erzielen. Oft 
ist es erwünscht, nach der Bearbeitung 
durch Wordstar, die Datendiskette zu 
kopieren. Bei Verwendung von SUB¬ 
MIT kann unsere Liste leicht durch ein 
Kopierprogramm wie PIP oder FI¬ 
LECOPY ergänzt werden. Dann sieht 
unsere Datei WSLOAD.SUB folgen¬ 
dermaßen aus: 

DEUTSCH < 

FAST < 


b: < 

A.WS < 

A: < 

FILECOPY < 

Wird nun Wordstar durch Eingabe von 
X im Grundmenue beendet oder die 
Dateibearbeitung durch CTRL K,X ab¬ 
gebrochen, wird nicht sofort ins Be¬ 
triebssystem zurückgesprungen, son¬ 
dern das Kopierprogramm FILECOPY 
geladen. Es muß selbstverständlich auf 
der Wordstardiskette enthalten sein. So 
kann bequem und schnell eine 
Sicherheitskopie angefertigt werden, 
ohne daß jedesmal das notwendige Pro¬ 
gramm geladen werden muß. Es könnte 
dort auch COPY stehen, wenn die 
Diskette jedesmal ganz kopiert wer¬ 
den soll. 

Erst durch die Verwendung von SUB¬ 
MIT wird die Leistungsstärke von CP/M 
voll ausgenutzt Die Bedienungsfreund¬ 
lichkeit, die man von einem Personal¬ 
computer erwartet kann hier geboten 
werden. Jeder, der darauf verzichtet, 
verzichtet auf ein Stück Komfort und 
auch auf Professionalität. Mit unserer 
Wordstaranpassung, Tastaturanpassung 
und der Laderoutine mit SUBMIT wird 
die Leistung des Schneiders tatsächlich 
mit einem Personalcomputer vergleich¬ 
bar. 

Hartmut Pick 

Tabelle der einzugebenden Codes für die 
Anpassung Wordstar an Schneider: 

0248 19 Bildschirmhöhe 
0249 50 Bildschirmbreite 
024A 01 

024B 1F Cursorpositionierung 
024D bis 

025C 00 unbenutzt 

025D FF für Spalte vor der Zeile 

025E 01 

025F 01 Offset auf Spalte und Zeile 
0260 bis 
0265 00 

0266 C9 unbenutzte Routine mit 
Rücksprung 
0267 bis 
026E 00 
026D 01 

026E 12 Löschen bis Zeilenende 
0270 bis 

0266_ C9 unbenutzte Routine mit t 
02C5 bis Rücksprung, müssen alle 
02BB 00 auf 00 gesetzt werden 
02BC C9 und Rücksprung auf C9 
02BD bis 
02BE 00 
02BF C9 
02C1 00 
02C2 C9 
02C3 bis 
02C4 00 
02C5 C9 
02C6 bis 
02CA 00 
02CB C9 

02CF 03 Grundeinstellung 
02D0 09 in Wordstar, sehr 
02D1 10 wichtig! 

02 D2 05 
02D3 05 
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Ein alter Standard lebt wieder auf: CP/M. 
Dies war wohl nicht zuletzt auch 
deshalb möglich, weil mit Computern, 
wie den Schneider CPC's. preisgünstige 
Rechner auf den Markt kamen, die mit 
Einschränkungen CP/M-fähig sind. 
Hieß es anfangs zwar noch. CP/M gut 
und schön, aber wie solle man denn bitte- 
schön mit diesem unmöglichen Disket¬ 
tenformat des Schneiders an die Soft¬ 
ware kommen, ohne die natürlich auch 
das beste Betriebssystem nichts bringt, 
so muß man heute diesen Einwand ent¬ 
kräften: Es besteht nun ja auch die Mög¬ 
lichkeit 5 ’/C-Laufwerke von Fremd- 
herstellem an die CPC’s anzuschließen. 


nur zum gelegentlichen Briefeschrei¬ 
ben benutzen, so muß man bedenken, 
daß es bei den Kosten für das Pro¬ 
gramm allein nicht bleiben wird, denn es 
werden alsbald Hardware-Erweiterun¬ 
gen notwendig. 


Wordstar auf dem Schneider: 
Wohin mit dem Text? 


Eine 3”-Diskette bietet unter CP/M un¬ 
gefähr 169KB Speichervermögen. Da¬ 
von belegt Wordstar (ohne MailMergc, 
das man ohnehin wohl nur selten be¬ 
nutzt) gut 76KB. Hat man nun noch 
2-3 Dienstprogramme auf der Diskette, 
sind gut und gerne 90KB einfach weg. 
Auch die nun verbleibenden 79KB kön¬ 
nen nicht für den Text allein genutzt 
werden. Man muß sie vielmehr noch 
einmal dritteln, wenn man ordentlich 
arbeiten will. Das andere Drittel frißt 
die Zwischendatei, die Wordstar 
während der Texterstellung anlegt. 


Wordstar und DDT 


Außerdem sind immer mehr Soft¬ 
warehäuser dazu übergegangen, alte 
CP/M-Programme auch auf 3”-Disket- 
ten anzubieten, und dies zu Preisen, wie 
sie vor zwei Jahren noch unvorstellbar 
gewesen wären. Das hat aber seinen 
guten Grund, denn diese Programme ha¬ 
ben sich natürlich längst amortisiert 
und können nun. anstatt irgendwo zu 
verstauben, den Herstellern noch ein¬ 
mal kräftig etwas einbringen. Insbeson¬ 
dere die Preispolitik des Markt & Tech¬ 
nik Verlages ist zu erwähnen. Hier wer¬ 
den die Programme Wordstar, dBase II 
und Multiplan nun nach Monaten 
noch zum Einführungspreis von knapp 
200,- DM verkauft. Zwischendurch 
stieg der Preis zwar kurz auf 300 - DM, 
aber man hat wohl eingesehen, daß da¬ 
mit die Schmerzgrenze für viele An¬ 
wender überschritten war, zumal man 
natürlich weit unter diesem Preis an¬ 
dere Textprogramme erhalten kann, die 
ähnliche Leistungsmerkmale wie der le¬ 
gendäre Wordstar aufweisen können, 
und dabei sogar noch besser an die 
Schneider Computer angepaßt sind. 

Nennen ließe sich hier beispielsweise 
der Star-Writer I von Star Division. Sind 
nun auch die Diskettenformatprobleme, 
zum Teil wenigstens, überwunden, so 
tauchen neue auf. CP/M-Programme 
gehen sehr freizügig mit dem Speicher¬ 
platz auf der Diskette um, und die 
CPC’s bieten nun mal nicht allzuviel 
davon. Außerdem brauchen dBase und 
Multiplan auch eine größere TPA 
(Transient Program Area), als ein CPC 
(insbesondere die der »64« Reihe) sie 
bieten kann. Mit Wordstar läßt sich 
zwar arbeiten, will man ihn aber nicht 


Bleiben für den eigentlichen Text also - 
sagen wir mal - 25KB. Das ist verflixt we¬ 
nig. Folglich muß ein zweites Laufwerk 
her oder eine Speichererweiter.mg. die 
eine RAM-Disk zur Verfügung stellt. 

Ich rate zu Letzterem.denn das Arbeiten 
mit Wordstar, der ständig auf die 
Diskette zugreifen muß, ist nur unter ei¬ 
ner RAM-Disk ein wahres Vergnügen. 

Nun erst, egal ob mit zweitem Laufwerk 
oder RAM-Disk, bietet sich die Mög¬ 
lichkeit, eine Programm- und eine Da¬ 
tendiskette anzulegen. So wäre es zu¬ 
mindest wünschenswert. Hat jedoch 
auch das zweite Laufwerk keine allzu¬ 
große Kapazität, so gibt es einen besse¬ 
ren Trick, indem man 

ws textname.ext d: 

eingibl, wobei d: für das zweite Lauf¬ 
werkt steht. Nur so kann der Speicher¬ 
platz der Diskette optimal ausgenutzt 
werden. Wordstar wechselt nun jedes¬ 
mal beim Abspeichern des Textes die 
Diskette, d.h., einmal ist der Text jetzt 
auf Laufwerk A und die Backup-Datei 
auf Laufwerk B, aber nach dem näch¬ 
sten Abspeichern ist es schon gerade 
umgekehrt. So wird es möglich. Texte 
der Länge zu erstellen, wie sie die 
Diskette bietet, zieht man die Wordstar 
Dateien ab. 

Will man seinen Wordstar nun in Lauf¬ 
werk B oder auf einer RAM-Disk instal¬ 
lieren, so kann cs leicht passieren, daß 
das Programm aussteigt, denn Wordstar 
sucht seine Overlay-Dateien immer auf 
Laufwerk A. Gerade aber bei einer 


RAM-Disk wäre es doch von Vorteil, 
einfach mit 

pip c:=a:ws*.* 

den ganzen Wordstar auf der RAM- 
Disk (also im internen Speicher des 
Rechners) zu haben, um damit die Zu¬ 
griffsgeschwindigkeit zu optimieren. 

Dazu aber muß dies Wordstar erst ein¬ 
mal mitgeteilt werden, daß er zukünftig 
seine Overlays aufC (oder B) zu suchen 
hat. Dies ist nicht weiter schwer. Entwe¬ 
der installiert man Wordstar neu oder 
man patcht ihn mit Hilfe des auf der 
CP/M-Diskettc mitgelieferten Debug- 
Programms DDT. In diesem Fall lautet 
die Patchadresse 02DC, in die man die 
Laufwerksnummer zu schreiben hat, 
also 01 für A, 02 für B, 03 für C usw. 

Doch bevor wir nun die einzelnen 
Schritte genau erläutern, ist es an der 
Zeit, ein paar Worte über dieses Debug- 
Programm zu verlieren, denn nicht je¬ 
der kennt sich damit aus. Beherrscht 
man es aber, hat man ein überaus lei¬ 
stungsfähiges Werkzeug zur Verfügung. 

DDT (Dynamic Debugging Tool) ist 
ein Programm, das bei der Fehlersuche 
helfen soll. Doch es kann nicht nur dem 
Programmierer nutzen, sondern auch 
dem, der eigentlich nur Anwendungs¬ 
software laufen lassen möchte. So läßt 
sich beispielsweise der oben erwähnte 
Patch sehr gut mit Hilfe von DDT voll¬ 
ziehen. 

Es gibt zwei Arten, DDT zu starten: Ent¬ 
weder man ruft es einfach nur auf, oder 
man gibt noch den Namen eines Pro¬ 
grammes an, das untersucht werden 
soll, also 

ddt ws.com 

So wird erst DDT in den Hauptspeicher 
geladen. Dies wiederum lädt dann 
ws.com in den Bereich ab 0100H. Wenn 
sich DDT mit seinem Prompt (-) mel¬ 
det, stehen verschiedene Kommandos 
zur Verfügung, die einem behilflich sein 
können. Wollen wir also die grundsätz¬ 
liche Frage klären, wie sich ein Pro¬ 
gramm, wie beispielsweise Wordstar, 
mit Hilfe von DDT patchen läßt. Kom¬ 
men wir auf unser Anfangsvorhaben 
zurück: Wir wollten Wordstar so instal¬ 
lieren, daß er seine Overlay-Dateien auf 
einem anderen Laufwerk sucht. Dazu 
geben wir wie oben ddt ws.com ein, wo¬ 
rauf sich der Programmzähler und 
dann der Prompt meldet. Da unsere 
Patchadresse feststeht, schreiben wir 
hinter den Prompt: 

S <patchadresse>, 

wobei S für den Befehl Set memory to va- 
lue steht. Zwischen dem Befehl S und 
der Patchadresse darf kein Leerraum 
sein. In unserem Fall lautet die Eingabe 
also: 

S02DC 
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Nachwuchs für die DDI-I 
- 3.{"-Floppy am CPC 


Floppy-Tips 


u.a. 

• RELATIVE DATEI 
-DISKMANAGER 
-CPC DOS 1.0 


Hardware: 


DATENTRANSFER 
MIT IBM UND APPLE 
TURN-KET SVSTEM 


Software: 


TIPS ZU WORDSTAR UND dBASE li 
UNI-DATEI u.v.m. 


\ 

Alle Listings aus diesem Sonderheft sind auf der Databox 3”-Diskette 

»Ready to Run« enthalten. 

Der Service, der Ihnen das Abtippen erspart! Schnell, sicher und zuverlässig. 

Am besten noch heute bestellen. 

Bezugspreis: 

Die 3”-Databox-Diskette zu diesem Sonderheft kostet nur 24,- DM zuzüglich 
3,- DM Porto/Verpackung. 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme, 
zuzüglich der Nachnahmegebühr (Lieferung in das Ausland ist nur per Vorkasse 
möglich). 
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DDT zeigt daraufhin die entsprechende 
Speicherstelle an, dahinter ihren der¬ 
zeitigen Inhalt. War Wordstar bisher so 
installiert, daß er seine Hilfsdateien auf 
A suchte, so zeigt DDT an 

02DC 01_ 

Der Cursor weist uns darauf hin, daß 
nun eine Eingabe von uns erwartet 
wird. Wollen wir Wordstar nun auf B 
installieren, geben wir 02, für Laufwerk 
C 03 usw., ein. Soll die betreffende Spei¬ 
cherstelle vollkommen unverändert 
bleiben, so genügt ein <ENTER> , wo¬ 
raufhin die nächste Speicheradresse 
angezeigt wird. Ist alles so geändert, wie 
wir das wollten, geben wir einfach einen 
Punkt ein, woraufhin DDT wieder 
zu seinem Prompt zurückkehrt. Damit 
haben wir den Wordstar auch schon ge- 
patcht. Aber das leider nur im Inneren 
unseres Rechners! Irgendwie müssen 
wir es nun auch noch auf die Diskette 
schreiben. Dazu geben wir hinter dem 
Prompt gO ein. 


Dieser Befehl löst einen Warmstart aus, 
ohne den Speicherinhalt dabei zu lö¬ 
schen. Das Weitere ist ganz einfach, da 
CP/M uns mit SAVE einen Befehl zur 
Verfügung stellt, um den Kernspeicher¬ 
inhalt auf Diskette zu schreiben. Die 
Syntax des Befehls lautet: 

save länge name.ext 


wobei für die Länge jeweils das Vier¬ 
fache der zu schreibenden KBs ein¬ 
zusetzen ist. Da wir wissen, daß Word¬ 
star 16KB groß ist, setzen wir einfach 
16*4, also 64 ein: 

save 64 wspatch.com 

Es empfiehlt sich, vorsichtshalber statt 
ws.com einen neuen Namen zu wählen, 
um erst einmal zu testen, ob unser 
Patch erfolgreich verlaufen ist. Hin¬ 
terher können wir wspatch.com immer 
noch mit Hilfe von REN in ws.com um¬ 
benennen. Wenn man sich hinsichtlich 
der Länge nicht ganz sicher ist, kann 
man ohne weiteres auch eine größere 
Zahl eingeben. Doch gerade bei den 
Schneiderlaufwerken empfiehlt sich 
dieses Vorgehen nicht, da dadurch die 
entsprechende Datei auch mitwächst. 
Bei den Schneider Floppys aber lohnt 
es sich, und das wird mir‘jeder Anwen¬ 
der leidvoll bestätigen können, hart¬ 
näckig um jedes Byte zu kämpfen. 

Dies oben beschriebene Verfahren ist 
der einfachste Weg, ein bestimmtes An¬ 
wenderprogramm nach eigenen Wün¬ 
schen abzuändern. 

Hat man nun seinen Wordstar auf der 
RAM-Disk und die Speicherkarte 
bietet genügend Platz, so kann man 
natürlich auch seinen Text hier noch 
unterbringen. Dann geht freilich alles 
wahnsinnig flink, denn beides, Text 
und Programm, sind nun ja nicht mehr 
extern, sondern direkt im Rechner ge¬ 


speichert Doch sollte man nun nach Be¬ 
endigung der Arbeit nicht vergessen, 
den Text auf die tatsächliche Diskette 
zu schreiben, sonst wäre er unwiderruf¬ 
lich verloren, nachdem man den Rech¬ 
ner erst einmal ausgeschaltet hat. Bes¬ 
ser ist es noch, ca. alle 3-4 Seiten mit 
dem 'KO-Befehl den Text auf Laufwerk 
A zu kopieren. Hält man sich an diese 


Regel, dann kann selbst ein plötzlicher 
Stromausfall uns nicht mehr viel anha- 
ben. Aber noch ein kurzer Tip zum Ein¬ 
satz von Speicherkarten: Oft ist ein. 
Drucker-Spooler eingebaut, also ein 
Zwischenspeicher, welcher den Text, den 
man ausdrucken will, vorübergehend 
aufnimmt, damit der Computer auch 
während des Drückens für andere Auf¬ 
gaben bereitsteht. Doch beim Einsatz 
von Wordstar sollte man diesen, falls 
möglich, ausschalten. Wordstar verfügt 
über einen eigenen Spooler, was zu 
Konflikten führen kann. Erstens ist cs 
dann nicht so einfach möglich, den 
Druckvorgang zu stoppen, um bei¬ 
spielsweise einen entdeckten Fehler zu 
korrigieren; außerdem kann es zu 
seltsamen, nie eingegebenen Buchsta¬ 
ben am Anfang jeder Seite kommen, so 
zumindest beobachtet beim Einsatz der 
Vortex-Speicherkarte. Diese Mißstände 
lassen sich aber relativ problemlos be¬ 
heben, indem man den Spooler einfach 
ausschaltet. 


Wie steigt man wieder ein, 
wenn Wordstar aussteigt? 


Ein altes, immer neu erlebtes Problem: 
Man wechselt die Diskette, um einen 
Block in den laufenden Text einzule¬ 
sen, arbeitet seelenruhig weiter, bis man 
es schließlich beim Abspeichern merkt: 
Man hat ja vollkommen vergessen, die 
neue Diskette anzumelden! Und Word¬ 
star kennt in diesem Punkt keine Nach¬ 
sicht, er steigt aus: Das Betriebssystem 
meldet sich nun. Es sicht ganz so aus, 
als wäre alle Mühe vergebens gewesen: 
Der Text ist weg! Aber jetzt nur keine 
Aufregung und keinesfalls Wordstar 
etwa neu starten! Ein paar falsche 
Handgriffe und der Text ist wirklich 
weg. Als erstes legen Sie eine System¬ 
diskette, auf der sich auch DDT befin¬ 
det, in Laufwerk A. Mit Hilfe dieses Pro¬ 
gramms läßt sich der Text nämlich wie¬ 
der hersteilen. Jetzt melden Sie diese 
neue Diskette an und starten DDT. 
Denn dies überaus vielseitige Werkzeug 
kann uns auch hier helfen. Diesmal ru¬ 
fen wir DDT allerdings ohne einen Zu¬ 
satz auf, denn wir wollen uns ja nicht ir¬ 
gendein Programm betrachten, um es 
anschließend unseren Wünschen ent¬ 
sprechend abzuändern, sondern uns 
vielmehr einmal genauer den Kern¬ 
speicherinhalt unseres Computers an- 
sehen. Irgendwo wird der Text doch 
wohl zu Anden sein. Dazu müssen wir 
das D-Kommando benutzen. D steht 
für Display memory und erlaubt uns, 
verschiedene Speicherbereiche am Mo¬ 
nitor sichtbar zu machen. Ab Adresse 
0100H ist zumeist das Anwenderpro¬ 
gramm gespeichert, in unserem Fall 
also DDT selber, da wir es ohne jeden 
Zusatz aufgerufen haben. Der Text muß 
also an einer weit höheren Speicher¬ 
stelle zu finden sein. Stöbern Sie ruhig 
ein bißchen im Speicher Ihres CPC 
herum. Solange Sie nur den D-Befehl 


A>ddt 

DDT VERS 2.2 
-d7840 
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rs herumstochert 


-m7849,7902,0100 
-gO 


A>save 2 text 
A>type text 

So mancher Text, von dem man schon glaubte, Wordstar habe ihn 
verschluckt, läßt sich wiederfinden, wenn man nur ein bißchen in 
den Eingeweiden seines Rechners herumstochert. 
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gebrauchen kann dabei nichts passie¬ 
ren. Sie brauchen also keinerlei Angst 
zu haben, nun letztendlich doch noch 
Ihrem wertvollen Text den Garaus zu 
machen. Wahrscheinlich werden Sie ir¬ 
gendwo unterhalb der Speicheradresse 
8000H fündig. Merken Sie sich die An¬ 
fangsadresse Ihres Textes und durch¬ 
suchen Sie dann den Speicher weiter, 
bis Sie auch das Ende gefunden haben. 
Die Endadresse notieren Sie sich am be¬ 
sten auch irgendwo. Denn DDT kann 
leider nicht, was viele andere, komfortab¬ 
lere Debugger (wie etwa seine 16-Bit 
Entsprechung DDT-86) können, näm¬ 
lich Speicherinhalte direkt auf Diskette 
schreiben. Ein solches Kommando 
fehlt unserem Programm einfach. 
Sollten Sie also einen Debugger besit¬ 
zen, der über ein solches Kommando 
verfügt, müssen Sie den Bereich An¬ 
fangsadresse bis Endadresse des Textes 
einfach unter irgendeinem Namen auf 
die Diskette schreiben, und schon ha¬ 
ben Sie Ihren verlorengeglaubten Text 
wieder. Doch auch Anwender von DDT 
brauchen nicht zu verzweifeln. Erin¬ 


nern wir uns, daß wir vorhin bei dem 
kleinen WordStar-Patch das residente 
SAVE-Kommando benutzt haben, das 
es uns ermöglicht, Speicherbereiche ab 
Adresse 0100H unter Angabe der Länge 
auf die Diskette zu schreiben. Genau 
diesen Befehl benötigen wir jetzt. Aber 
verlassen Sie DDT nicht gleich, denn 
noch steht unser Text ja in einem 
vollkommen anderen Speicherbereich. 
Ab Adresse 0100H aufwärts befindet 
sich immer noch DDT.COM. Doch da¬ 
für hält uns das Programm einen ande¬ 
ren Befehl bereit: 

M Anfangsadresse >, Endadresse >, 
< Zieladresse > 

M ist die Abkürzung für Move Memory 
und gestattet uns, beliebig Speicher¬ 
bereiche zu verschieben. Also genau 
das, was wir brauchen. Für die Ziel¬ 
adresse müssen wir nur noch 0100 einset- 
zen, und schon befindet sich unser gan¬ 
zer Text ab Adresse 0100H. Nun kann 
man DDT beruhigt, wie oben beschrie¬ 
ben (also durch Eingabe von gO), verlas¬ 
sen und den Text mit SAVE auf 
Diskette zurückschreiben. Dieses 
Kommando beherrschen Sie ja inzwi¬ 
schen. Sollten Sie sich über die Länge 
Ihres Textes nicht ganz im Klaren sein, 
so können Sie in diesem Fall ruhig eine 
große Zahl eingeben. Dies ist immer 
noch besser, als wenn Ihnen sonst ge¬ 
nau der wichtigste Teil Ihres Textes feh¬ 
len würde. Ist die Textdatei dann erst 
wieder auf Diskette, können Sie sie 
ganz normal mit Ihrem Wordstar 


weiterverarbeiten. Aber keine Angst, ir¬ 
gendwann werden Sie wieder einmal 
vergessen, einen Diskettenwechsel an¬ 
zumelden. Doch jetzt brauchen Sie sich 
deshalb keine grauen Haare mehr wach¬ 
sen zu lassen. 


Eine kleine Anregung zum 
Schluß 


Wer hat wohl nicht schon einmal den 
Wunsch verspürt, den Trennalgorhyth- 
mus von Wordstar etwas durcheinan¬ 
der zu bringen? Denn da dieser auf 
amerikanische Verhältnisse zugeschnit¬ 
ten ist, genügt er unseren Ansprüchen 
nicht immer. Insbesondere Trennmög¬ 
lichkeiten eines Wortes vor der vierten 
Stelle übersieht Wordstar konsequent. 
Diese Beharrlichkeit des WordStars 
muß aber nicht hingenommen werden. 
Selbstverständlich kann man ihn auch 
in diesem Punkt abändern. Immerhin 
ist er ja dafür bekannt, daß man eigent¬ 
lich alles mit ihm machen kann. Man 
muß dazu nur wissen, daß der an 
Speicheradresse 039AH die Infor¬ 
mation abgelegt ist, ab welcher Stelle in 
einem Wort Wordstar frühestens eine 
Trennmöglichkeit vorschlägt. Diesen 
Wert können Sie natürlich verändern. 
Sie wissen jetzt ja ganz genau, wie man 
Wordstar patcht. 

Jürgen Weiß 
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Nachdem bereits in der Schneider Inter¬ 
national Nr. 1/86 ein Verfahren zur An¬ 
passung des NLQ-Druckers unter Word¬ 
star vorgestellt wurde, sollen hier neben 
einer weiteren, sehr einfachen Möglich¬ 
keit der Druckeranpassung auch noch an¬ 
dere nützliche Tips zum Arbeiten mit 
Wordstar gegeben werden. 


eingeschaltet sein muß. Der Drucker 
weiß jetzt auch noch unter Wordstar, 
daß er Texte im Schönschrift-Modus 
und mit 1 1/2 Zeilen Abstand ausgeben 
soll. Wer einen MBASIC-Compiler für 
CP/M besitzt, kann das Ganze auch 
noch einfacher haben: 

10 LPRINT CHR$(27);”I”;CHR$(3); 
20 LPRINT CHR$(27);”3”;CHR$(51); 

Nach dem Compilieren und Linken 
steht das Programm als COM-File auf 
der Diskette und kann direkt von Word¬ 
star aus mit dem (R)un-Befehl aufgeru¬ 
fen werden. 


Cursor-Steuerung 


sondern sollte immer munter drauflos 
tippen und den Tastaturpuffer nutzen. 

VORTEX hat bereits einen Wordstar- 
Patch mit einer wesentlich schnelleren 
Bildschirmausgabe angekündigt. 


Speicherplatz unter Wordstar 


Wie bereits schon erwähnt, läuft Word¬ 
star 3.0 auch ohne die Speichererweite¬ 
rung von VORTEX auf den CPC’s. 

Diese Tatsache ist unter anderem dem 
Umstand zu verdanken, daß vor eini¬ 
gen Jahren, als Wordstar für CP/M- 
Rechner auf den Markt kam, schon aus 
Kostengründen mit dem Speicherplatz 


Tips zu Wordstar 


Die Wordstar Versionen ab 3.0 


Wordstar ist schon ein etwas älteres 
Textverarbeitungsprogramm und wurde 
daher im Laufe der Zeit immer wieder 
verbessert. Die neueste Version 3.4, 
wird neben der Version 3.3 am häufig¬ 
sten unter MSDOS-Systemen angetrof¬ 
fen. Auf den Schneider CPC’s läuft in al¬ 
ler Regel die Version 3.0, die vor allem 
einen gewichtigen Vorteil hat: Sie kann 
auch ohne die Speichererweiterung von 
Vortex betrieben werden, wenn auch nur 
mit einigen Abstrichen. 

Auch das von Markt & Technik für die 
CPC’s angebotene Wordstar hat die 
Versions-Nr. 3.0. Dabei wurde nicht nur 
die Bildschirmsteuerung angepaßt, 
sondern auch die Cursorsteuerung des 
CPC’s unterstützt. Um die Ansteuerung 
des NLQ-Modus beim Schneider Druk- 
ker muß man sich allerdings selber 
kümmern. 


NLQ mit Wordstar 


Das läßt sich zum einen über das mitge¬ 
lieferte Installationsprogramm unter 
Anleitung des bereits erwähnten Artikels 
in der Schneider International Nr. 1/86 
bewerkstelligen. Eine weitere, sehr ein¬ 
fache Möglichkeit besteht darin, Texte 
unter Wordstar nur mit NLQ und 1 1/2 
Zeilen Abstand auszudrucken. Dazu 
dient das folgende kleine Basic- 
Programm: 

10 PRINT#8,CHR$(27);’T’;CHR$(3); 

20 PRINT #8,CHR$(27);”3”;CHRS(51); 

Dieses Programm wird vor dem Aufruf 
von CP/M unter Basic gestartet, wobei 
der Schneider Drucker natürlich schon 


Ein anderes Problem ist die Cursor- 
Steuerung. Besitzer einer Wordstar 3.0 
Version, bei denen lediglich die Bild¬ 
schirmsteuerung angepaßt wurde, kön¬ 
nen zunächst die Cursortasten nicht 
wie gewohnt benutzen. Dieses Problem 
läßt sich aber relativ einfach, mit Hilfe 
der Dienstprogramme SETUP unter 
AMSDOS bzw. INSTALL unter VDOS 
von VORTEX lösen. Dabei müssen nur 
noch die Tastennummern 0,1,2 und 8 
mit den Controlsequenzen E,D,X und 
S belegt werden. Je nach Wunsch kann 
auch noch der Funktionstastenblock 
belegt werden. 


Wordstar-Aufsteiger 


Viele Aufsteiger, die vor Wordstar mit 
anderen Textverarbeitungsprogram¬ 
men gearbeitet haben, möchten ihre 
Texte oder Berichte wahrscheinlich 
nicht noch einmal neu eintippen. Wenn 
diese Texte als ASCII-Dateien vorlie¬ 
gen, wie sie z.B. unter TASWORD er¬ 
stellt werden, gibt es hier keine Pro¬ 
bleme. Deutsche Sonderzeichen oder 
bestimmte Druckeransteuerungszei- 
chen lassen sich nach dem Hereinladen 
bequem und einfach mit dem Control 
QA-Menue bearbeiten und entspre¬ 
chend umwandeln. Bequemer geht es 
kaum noch. 


Der leidige Bildschirmaufbau 


Der Bildschirmaufbau ist unter Wordstar 
leider sehr langsam und kann selbst 
durch die schnellere Bildschirmaus¬ 
gabe unter VDOS 2.0 von VORTEX 
durch den neuen CP/M-Befehl FAST 
nur geringfügig beschleunigt werden. 
Man muß jedoch nicht auf den voll¬ 
ständigen Bildschirmaufbau warten. 


gespart werden mußte und viele Rech¬ 
ner mit einem kleineren RAM als 64KB 
ausgestattet waren. Wordstar mußte 
also an die Gegebenheiten angepaßt 
werden. Das komplette Wordstar um¬ 
faßt allerdings immer noch fast 100KB, 
wobei jedoch durch eine Overlay- 
Technik immer nur der gerade 'be¬ 
nötigte Teil in den RAM-Speicher 
hereingeladen wird. Ebenso verhält es 
sich mit den zu bearbeitenden Texten 
und Programmen, wodurch die Länge 
dieser Texte im Prinzip nur von der 
Speicherkapazität der Diskette ab¬ 
hängt. Dabei wird ständig Text von der 
Originaldatei kopiert und in den, je 
nach Speichergröße, verbleibenden 
RAM-Bereich geladen. Wird der Cursor 
um mehrere Zeilen nach unten bewegt, 
muß wieder ein neuer Teil nachgeladen 
werden. Dabei wird der gerade im Spei¬ 
cher befindliche Teil jedoch nicht ein¬ 
fach gelöscht, sondern auf einer neuen 
Datei zwischengespeichert. Auch beim 
Rückwärtsgehen mit dem Cursor über 
weitere Strecken, wird wieder eine neue 
Datei angelegt. Das ist übrigens auch 
der Grund dafür, warum es beim Ar¬ 
beiten unter Wordstar ständig zu 
Diskettenzugriffen kommt. Beim 3”- 
Laufwerk stößt man mit dieser zwar 
sehr sicheren aber verschwenderischen 
Methode ziemlich schnell an seine 
Grenzen, so daß man bei einer Text¬ 
länge von 15KB so langsam aufhören 
muß. Der restliche Platz wird für die 
Sicherheitskopien benötigt und vor al¬ 
len Dingen für Wordstar selber, das 
sich ja immer auf der Arbeitsdiskette 
befinden muß. Einen Ausweg bietet das 
Aufteilen in viele kleinere Textbau¬ 
steine oder das Arbeiten mit einem 
Zweitlaufwerk. Viel eleganter arbeitet 
man allerdings mit den Vortex 5,25”- 
bzw. neuen 3,5”-Laufwerken, die ja bei¬ 
de schon als Einzellaufwerke eine 
Speicherkapazität von je 708KB besit¬ 
zen, also das Vierfache einer 3”-Seite. 

Um nun auch noch die, durch den sich 
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ständig wiederholenden Diskettenzu¬ 
griff erzeugten, störenden Laufwerks¬ 
geräusche und die sich dadurch zwangs¬ 
läufig ergebenden Verzögerungszeiten 
zu vermeiden, gibt es eine Ideallösung: 

Die RAM-Disk 
als Zweitlaufwerk 


Die von Vortex angebotene Speicher¬ 
aufrüstung SP 64 erfreut den Wordstar- 
Benutzer zunächst einmal durch einen 
Drucker-SPOOLER und die Tatsache, 
daß mehr Text auf einmal in den RAM- 
Speicher hereingeladen werden kann 

Auch Blockverschiebungen müssen 
jetzt nicht mehr über die Diskette abge¬ 
wickelt werden. Das Simultan-Drucken 
ist ebenfalls möglich. 


Noch viel interessanter wird das Ar¬ 
beiten allerdings ab der SP 128, oder 
noch besser SP 256, da man bei beiden 
in den Genuß einer RAM-Disk kommt. 

Da die Logik der Karte die Ausbaustufe 
selbsttätig erkennt, kann jeder Besitzer 
einer SP 64 seine Karte einfach mit 
Hilfe von Aufrüstungssätzen bis auf 
512KB, davon 448KB RAM-Disk, auf¬ 
rüsten. 

Wie ein geölter Blitz wird Wordstar jetzt 
geladen. Dabei stört kein einziges Lauf¬ 
werksgeräusch den Benutzer, und selbst 
größere Texte werden in Sekunden¬ 
schnelle hereingcladen. Auch das Laden 
der Overlays geschieht in wenigen Au¬ 
genblicken. Das einzige Hemmnis ist, 
nach wie vor, der ziemlich langsame 
Bildschirmaufbau. Dafür kann der Be¬ 
nutzer Wordstar während dem Aus¬ 
drucken von Texten verlassen und ein 
völlig anderes Programm aufrufen, 
oder nach Wordstar zurückgehen und 
einen neuen Text bearbeiten. Der 
SPOOLER macht's. Man kann übrigens 
auch die Zeit während des Ausdruckens 
dafür nutzen, um alle Texte auf die 
Diskette zurück zu schreiben und da¬ 
mit dauerhaft zu sichern. Dafür muß 
man Wordstar nicht einmal verlassen, 
sondern bedient sich der Menuege- 
steuerten o-Option. 


Rechtschreibungsüberprüfung 


Sicherlich ist den meisten Benutzern 
im Hauptmenue von Wordstar schon 
die Option (S)PELLSTAR aufgefallen. 
SPELLSTAR ist ein Rechtschreibungs- 
Prüfprogramm und wird getrennt von 
Wordstar verkauft. Man sollte jedoch 
vom Erwerb dieses Programmes ab- 
sehen, da es nur amerikanische Wörter 
kennt, und daher nicht ein einziges 
deutsches Wort versteht. Spellstar kann 
zwar auch die deutsche Rechtschrei¬ 
bung erlernen, jedoch ist das ein sehr 
mühseliges Unterfangen. Entwederver- 

zichtet man ganz auf diese Möglichkeit 
oder kauft sich ein deutsches Recht¬ 
schreibungs-Prüfprogramm, das dann 
ebenfalls aus dem Wordstar-Haupt- 
menue mit (R)un aufgerufen werden 
kann. 

Zusammenfassend kann man sagen, 
daß man sich den Umgang mit Word¬ 
star, je nach Lust und Geldbeutel, mehr 
oder weniger erleichtern kann. Word¬ 
star bietet viele professionelle Mög¬ 
lichkeiten und muß daher als ein aus¬ 
gereiftes Textverarbeitungsprogramm 
bezeichnet werden. Alle Möglichkeiten 
wird man sicherlich erst nach einer län¬ 
geren Einarbeitungsphase anwenden 
können. Dipl.-Ing. H. Scheruhn 


Wordstar anpassen 


Sie besitzen eine WordStar-Version von 
Markt & Technik oder die eines ande¬ 
ren Anbieters und überlegen sich, ob 
die Anpassung für Ihren Wordstar 
wohl so gut ist, wie Sie es sich vorstellen. 

Vielleicht zweifeln Sie, ob alle Mög¬ 
lichkeiten ausgeschöpft sind, da Sie bei 
einem Bekannten eine Version gesehen 
haben, die offensichtlich besser funk¬ 
tioniert bzw. mehr Funktionen des 
Druckers ausnutzt, als es Ihr Programm 
zuläßt. Andererseits haben Sie schon 
gehört, daß man Wordstar »patchen« 
kann. Wie, wo, was, zu welchem Zweck, 
mit welchem Ergebnis? 

Lesen Sie diesen Artikel durch, voll¬ 
ziehen Sie die gemachten Vorschläge, 
spielen Sie damit herum, passen Sie 
Sequenzen Ihren Bedürfnissen (Druk- 
ker, Ausführungszeiten, Steuerzeichen¬ 
komfort etc.) an. 

Sie werden sehen, daß es über die Mög¬ 
lichkeiten des Installationsprogramms 
hinaus noch eine ganze Reihe von 
»Kleinigkeiten« gibt, um die Sie Ihr 
»persönliches« WordStar-Programm 
verfeinern können. 

Bevor wir loslegen, will ich Ihnen zei¬ 
gen, welche Möglichkeiten sich zum 
Beispiel für Ihre Textverarbeitung un¬ 
ter Wordstar ergeben: 

Beispiele für die Möglichkeiten, die Sie 


nach dem »patchen« bei einem EPSON- 
Drucker (oder E-kompatiblen Drucker) 
haben: 

Beispiele für die Möglichkeiten, die 
Sie nach dem ’patchen' bei einem 
EPSON-Drucker (oder E-kompatiblen 
Drucker) haben: 

PA ~ ESC,o,NiT-AiMia / 'PN = ESCbnde 
''RAM / -'PNP 

-x. EHte 

"PA4 / '"PN5 

-S, xtalic 

•'"PA4-PNM / -PAS'PNP 

--- It-al ic+El ite 

"PAp 1 / -"PNp0 

- p ropör tic.nal 

A PW A PAp1 / A PNp0 A PQ 

j. Prop.weit 

"PE / ''PR 

-g n g 5C hr i ft 

‘■'PW / -PQ 

- > t-Je=“ ± -fc 

'PW'-PE / -'PR 'PQ 

- y sperr sehrift 

■"PD-PW / ""PQ 'PD 

we jt+dp. 

''PW'PA 4 / ' PNS 'PQ 

> i“ t - ts jt f - 

A PT / '"PT 


'PT'-PAM / "PNP-'PT 

'"PY'PAM / 'PNP''PY tl ” r 

'"PB "PAM / •'•PNP'PB 

-> £iite fett 

'PW-PAM / 'PNP'PQ 

s. Elite we i t 

"■PT 'PE / -'PR 'PT 


'PY-PE / "PR'-PY 
'PAn / 'PNP 
PA-1 / "'PN-0 


•"» llilgnlalll 

-y »"• I% 

-> Near Letter 

-> Unterstrichen 


-V Hoehgutmi' 


-> Fett (bold) 


"PY / ""PY 
'"PB / -PB 
'■FD / -PD 

-s. Doppelt 

•'•PB'PA4 / PN5--PB 

-> Italic fett 

•'"PT-PA4 / • PN5'"PT 

y t l (j,r 

•'py.--.pA4 / -PNS'PY 

--—-V 


kein Elite+Eng, kein Elite+fett, 
kein Elite+Sperr, kein Elite+Prop. 


Welche Kenntnisse benötigen wir, um 
die nachfolgend beschriebenen Word- 
Star-Adressen des ’ws.com’-Files zu 
verändern? 

Nun, lediglich die Bedienung der Uti¬ 
lities DDT und SAVE unter CP/M 2.2! 
Mit 'ddt ws.com’ laden wir unser 
WordStar-Programm und den »Debug¬ 
ger« in den Speicher und erhalten etwa 
die folgende Meldung: 

DDT VERS 2.2 
NEXT PC 
4500 0100 


Wir müssen uns den Wert unter ’NEXT 
(hier 4500) merken, damit wir nach Ab¬ 
schluß unserer Arbeit mit DDT die 
richtige Speicherbereichslänge mit 
SAVE auf die Diskette zurückschreiben 
können. 


. m 
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4500 = Endadresse von ’ws.com’ 

0100 = Anfangsadresse von ’ws.com’ 

— DDT-Promptzeichen 

Mit der Ausgabe des Promptzeichens 
zeigt DDT an, daß nun Debugger- 
Kommandos erwartet werden. Uns in¬ 
teressieren aus der gesamten Komman¬ 
do-Menge lediglich: 

-d**** (Dump ab Adresse ****) 

-s**** (Verändern Inhalt Adresse) 

-gO (verlassen DDT, Warmstart). 

Mit ’d****’ geben wir den Befehl 
DUMP ab Adresse **** (hier geben Sie 
natürlich eine »echte« Adresse ein, nicht 
etwa die Sternchen). DDT gibt Ihnen 
die nächsten 128 Speicherinhalte aus. 

Mit 's****’ wird die Adresse angewählt, 
deren Inhalt verändert werden soll. Da¬ 
hinter erwartet DDT entweder einen 
zweistelligen Hexa-Wert oder einen 
Punkt ('.*), wenn der alte Wert erhalten 
bleiben soll. 

Mit ’gO’ verlassen wir DDT, indem wir 
das Programm mit der Warmstart¬ 
adresse von CP/M fortsetzen. Danach 
saven wir den Speicherbereich, den 
’ws.com’ einnimmt, mit dem CP/M- 
Kommando SAVE. 

SAVE 68 ws.com 

Ihre Anzahl »Pages« (hier 68) ergibt 
sich aus dem Dezimalwert der ersten 
beiden NEXT-Wertstellen (hier 45H). 

Die Anzahl muß um 1 vermindert wer¬ 
den, wenn die beiden letzten NEXT- 
Wertstellen gleich 00H sind (hier: 45H 
entsprechen ’69’ dezimal, vermindert um 
1, also — 68!). 

Name Hex. Anz. Inhalt (Hexa.) 
Param. Adr. Bytes ## ## ## ## ## ## 

DELCUS 02AE 1 00 

Zeitverz. in ms nach der Cursor- 
Adressierung. 

DELMIS 02AF 1 00 

Zeitverz. in ms nach einer belie¬ 
bigen Zeichenausgabe. 

CRBLIV 02B5 1 FF 

Cursor blinkt, wenn er in einer 
Invers-Darstellung steht (00 = 

'blinken’ unterdrücken, FF = 
blinken). 

DEL 1 02CF 1 05 

Blinkdauer ('Cursor an'-Zeit) 
(wenn 02B5=FF). 

DEL 2 02D-0 1 05 

Blinkdauer ('Cursor aus’-Zt.) 
(wenn 02B5=FF). 

DEL3 02D1 1 00 

Zeit bis zum Erscheinen des Help- 
Menues. 


DEL4 02D2 1 00 

Dauer der 'Copyright'-/'New- 
File'-Meldung. 

DEL5 02D3 1 00 

Zeit bis zum Bildschirm-Aufbau 
nach horizontalem Scroll. 

DEFDSK 02DC 1 01 

Laufwerk, auf dem WSMSGS.OVL und 

WSOVLY1.OVL zuerst gesucht werden 

sollen (01=A,02=B,03=C). 

ITHELP 0360 1 01 

Hilfsstufe, mit der gestartet 
werden soll (00-03). 

NITHLF 0361 1 FF 

Hinweis auf HeIp-Funktion unter¬ 
drücken bei WS-Start? (nein/ja) 
INITOG 0362 1 FF 

Insert-Modus an bei WS-Start? 

(00=nein, FF=ja) 

ITDSDR 0363 1 FF 

Inhaltverzeichnis anzeigen bei 
WS-Start? (00=nein, FF=ja) 

Bei den nächsten Adressen handelt es 
sich um Standardeinstellungen. Dabei 
sind auch solche für Punktbefehle, de¬ 
ren Eintragungen aus vier Bytes beste¬ 
hen: 

- Anzahl Zeilen (1 Byte) 

- Anzahl Zeilen*Zeilenabstand (2 Bytes) 

- Zeilenabstand 1/48 Zoll (1 Byte)’ 


Name Hex. Anz. 

Inhalt 

(Hexa. ) 

Param. Adr. Bytes 

## ## ## 

## 

## ## 

INITPF 0366 1 

08 



Zellenabst. 1/48 Zoll 


( .LH) 

0367 4 

48 40 02 

08 


Blattlänge 



( .PL) 

036B 4 

03 18 00 

08 


Länge des oberen Randes 


( .MT) 

036F 4 

02 10 00 

08 


Kopfzeilenabst. 

v.o.Rand 


( .HM) 

0373 4 

08 40 00 

08 


Länge des unt. 

Randes 


( .MB) 

0377 4 

02 10 00 

08 


Fußzeilenabst.v 

'. u .Rand 


( .FM) 

037B 1 

00 



Alternate-Zeichenbreite an? 


(00=nein, FF=ja) 



037C 1 

0C 



Normal-Zeh.breite 1/120” 


( -CW) 

037D 1 

0A 



Alternat 1v-Zch. 

br. 1/220“ 


( .CW) 

037E 1 

08 



Breite des li. 

Randes 


( .PO) 

INITLM 037F 1 

00 



Pos. der linken 

Randbegr. 


( A 0L) 

INITRM 0380 1 

42 



Pos. der rechten Randbegr 


( A OR) 

INI TSR 0381 1 

03 



Pos. hoch/tiefgest. Zeichen 

( .SR) 


Wie bereits aus vorhergehenden Eintra¬ 
gungen zu ersehen ist, werden Fragen 
mit den Werten W für ’nein' und ’FF’ 
für ’ja’ beantwortet. 


Name Hex. Anz. Inhalt (Hexa.) 
Param. Adr. Bytes ## ## ## ## ## ## 


INITWF 0385 1 FF 

Wortumbruch an? ( A QW) 

0386 1 FF 

Blocksatz an? ( A 0J) 

0387 1 FF 

Variabler Tabulator an? ( A 0V> 

0388 1 00 

Phantom-Trennstrich an? ( A 0E) 

0389 1 FF 

Trennhilfe an? ( A 0H) 

038A 1 FF 

Anzeige Steuerzch. an? ( A 0D) 

038B 1 FF 

Lineal-Anzeige an? ( A OT) 

038C 1 FF 


Dyn. Seitenanzeige an? - 

038D 1 FF 

Seiten-Anzeige? ( A 0P) 

038F 1 00 

Standard-Blockverarbeitung ( A KN) 
(00=Blockverarb., FF=Spaltenv.) 
NONDOC 0392 1 00 

Programm-Modus an? (N) 

DECCHR 0393 1 2C 

Dezimalpunkt = ASCII-Code '2C' 
DOTCHR 0395 1 2E 

Punkt = ASCII-Code ’2E* 

BLNCHR 0396 1 0F 

ASCII-Wert für CTRL 0 ( A 0) 

DOTSON 0397 1 FF 

Punktkommandos wirksam? (neln/ja) 
HZONE 039A 1 04 

Max. Anzahl von Leerzeichen, die 
bei A B eingefügt werden sollen, 
bevor ein Trennvorschlag gemacht 
wird. 


Name Hex. Anz. Inhalt (Hexa.) 
Param. Adr. Bytes ## ## ## ## ## ## 


PWVTAB 039B 2 9F 03 

Adresse der Tabelle für Umlaute 
oder andere Zeichen (VOWTAB), die 
bei der Silbentrennung wie Vokale 
behandelt werden sollen (fiöüäöü). 

PNCON 039D 2 A5 03 

Adresse der Tabelle für Vokale 
(Nichtkonsonanten) oder andere 
Zeichen (NONCON); wichtig für die 
Silbentrennung (AEIOUY). 


VOWTAB 

039F n 

5B 5C 5D 7B 7C 7D 

NONCON 

03A5 n 

41 45 49 4F 55 59 

EOFCHR 

03AD 1 

2E 

' . ' 

= Anzeige 

'Ende des Textes’ 

BOFCHR 

03AE 1 

3A 

': ’ 

= Anzeige 

'Anfang des Textes’ 

CONCHR 

03AF 1 

2B 

' + ' 

= Anzeige 

'Text reicht über 


den rechten Rand’ 

OVPCHR 

03B0 1 

2D 

’-' 

= Anzeige 

'die nächste Zeile 


überschreibt diese’ 

LFCHR 

03B1 1 

4A 

' J' 

= Anzeige 

'Ze1lenvorschub' 

PAGCHR 

03B2 1 

50 

'P' 

= Anzeige 

'Seitenumbruch’ 

SOFTCR 

03B3 1 

20 

' ' 

= Anzeige 

'Zeilenumbruch’ 

HARDCR 

03B4 1 

3C 


= Anzeige 

'Neuer Absatz' 

FDTCHR 

03B5 1 

4D 

’M' 

= Anzeige 

'Mail-Merge-KDO.' 

SOFHYC 

03B8 1 

AD 


= Anzeige 

'Phant.-B indestr.’ 

PAGFIL 

03B9 1 

2D 

' - ’ 

= Anzeige 

'Seitenumbruch’ 

MARKS 

03BA 1 

42 

’B' 

= Anzeige 

'Blockanfang' 


03BB 1 

4B 

’K’ 

= Anzeige 

'Blockende' 


03BF 10 

30 31 32 33 34 


35 36 37 38 39 


'0123456789'=Anzeige der Block- 
Merker 0-9 


Die folgenden Adressen beinhalten 
Daten für Druck-Standard-Einstellun- 
gen (auch hier gilt ’OO’ für ’nein’ und ’FF' 
für ’ja’). 


Name 

Hex. 

Anz. 

Inhalt (Hexa.) 

Param. 

Adr. 

Bytes 

## ## ## ## ## ## 


Die folgenden Adressen beinhalten 

Daten für Druck-Standard-Einste11un- 
gen (auch hier gilt ' 00 ' für ’nein’ 
und 'FF' für 'ja'). 

PODBLK 03CA 1 00 

Ausgabe auf Diskette? 

03CB 1 00 

Form-Feed? 

03CC 1 00 

Seitenformatierung unterdrücken? 
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03CD 1 00 

Einzelblatteinzug (Pause bei 
Blatt-Ende)? 

NOUFF 03D1 1 00 

Unterdrücken 'Seitenvorschübe' im 
Druck-Dialog? 

ITPOPN 03D3 1 00 

Seitennummer unterdrücken? (.OP) 
ITMIJ 03D4 1 FF 

Microj ustification an? (.UJ> 

ITBIP 03D5 1 FF 

Bidirektional drucken? (.BP) 

RVELIM 03D8 1 2C 

= Trennzeichen zwischen den 
Elementen in Mail-Merge- 
Dateien 

RVQUOT 03D9 1 22 

= Anführungszch. bei Mail-M. 
VARCH1 03DB 1 26 

= Variablen-Start bei Mail-M. 
VARCH2 03DC 1 26 

= Variablen-Ende bei Mail-M. 
VARNBC 03DD 1 2A 

= Zeichen hinter dem ersten 
zum Unterdrücken von 
Leerzeilen, wenn Variable=0 
bei Mail-Merge 
VAROPC 03DE 1 2F 

= Trennzeichen zwischen Var. 
und Option (bei Mail-Merge) 


FNWSCM 


Name 

DSKTNA 


Name 

FNOVLY 


Name 

FNMRGP 


Name 


03DF 1 4F 

= Option vor dem 2. zum 

Unterdrücken von Leerzeilen 
bei entfallenden Variablen 
(bei Mail-Merge) 

03E6 12 00 57 53 20 20 20 

20 20 20 43 4F 4D 
des WS-Files 'WS.COM’ 

03F2 12 00 57 53 4D 53 47 

53 20 20 4F 56 52 
des WS-Files ’WSMSGS.OVR’ 
03FE 12 00 57 53 4F 56 4C 

59 31 20 4F 56 52 
des WS-Files 'WS0VLY1.OVR’ 
040A 12 00 4D 41 49 4C 4D 

52 47 45 4F 56 52 
des WS-Files ’MAILMRGE.OVR’ 


Doppe1- 
('PD) 


Im folgenden sind druckspezifische 
Daten angegeben. Belegt eine Position 
mehr als ein Byte, so gibt das erste Byte 
immer die Anzahl der Bytes an, aus der 
eine Sequenz besteht. 

Name Hex. Anz. Inhalt (Hexa.) 
Param. Adr. Bytes ## ## ## ## ## ## 

Im Folgenden sind Druck-spezifische 
Daten angegeben. Belegt eine Posi¬ 
tion mehr als ein Byte, so gibt das 
erste Byte immer die Anzahl der 
Bytes an, aus der eine Sequenz be¬ 
steht. 

POSMTH 0690 1 FF 

Art des Unterstreichens: 

00=BS und Unterstreichungszeichen 
01=Typenraddrucker 
FF=CR mit Unterstreichungs-Zeile 
BLDSTR 0691 1 04 

Anzahl 'Überdrucken' bei Fett- 
Druck (■'PB) 


DBLSTR 0692 1 02 

Anzahl 'Überdrucken’ bei 
Druck 

PSCRLF 0696 11 02 0D 0A 

ASCII-Code für CR und LF 
PSCR 06A1 7 01 0D 

ASCII-Code für CR 


PALT 06B5 5 01 1B 

ESC-Seq. 'Sonderschrift ein’('PA) 
PSTD 06BA 5 01 IB 

ESC-Seq. 'Sonderschrift aus'( A PN) 
ROLUP 06BF 5 03 1B 53 01 

ESC-Folge: ESC S 1 
'Tiefstellen ein' ( A PT) 

ROLDOW 06C4 5 04 1B 54 1B 48 

ESC-Folge: ESC T + ESC H 
'Tiefstellen aus’ ( A PT) 

USR1 06C9 5 03 1B 57 00 

ESC-Folge: ESC W 0 
'Weit aus’ ( A PQ) 

USR2 06CE 5 03 1B 57 01 

ESC-Folge: ESC W 1 
'Weit ein' ( A PW) 

USR3 06D3 5 01 0F 

ESC-Folge: SI 

'Eng ein’ ( A PE) 

USR4 06D8 5 03 12 1B 50 

ESC-Folge: DC + ESC P 
'Eng aus+Normal' ( A PR) 

RIBBON 06DD 5 03 IB 53 00 

ESC-Folge: ESC S 0 
’Hochstellen ein' ( A PY) 

RIBOFF 06E2 5 04 IB 54 IB 48 

ESC-Folge: ESC T + ESC H 
’Hochstellen aus’ ( A PY) 

PSINIT 06E7 17 07 IB 40 IB ,52 01 

IB 4F 

ESC-Fo,: ESC Kl.af.+ESC R 1+ESC 0 
'Drucker INIT’ 

PSFINI 06F8 17 06 IB 57 00 12 IB 

40 

ESC-Folge: ESC W 0+DC2+ESC Kl.af. 
'Drucker END’ H. Kleiner 



Terminkalender 

für 464-664-6128 


: :SÜll,: 





Dieses Basicprogramm ist den Vergeßlichen unter uns gewid¬ 
met, die entweder zu spät oder gar nicht zu einem schon lange 
geplanten Termin erscheinen, weil er mangels Planung in 
Vergessenheit geriet. Mit dem TERMINKALENDER wird 
das Speichern, Andern und Löschen von Terminen zur Wohl¬ 
tat. da dieses Programm über einige komfortable »Ne¬ 
bensächlichkeiten« verfügt. 

Nach dem Laden des Hauptprogrammes von Diskette, wird 
der Benutzer nach dem Vornamen gefragt. Dieser Name wird 
dann beim Abspeichern eines Monats-Terminkalenders Be¬ 
standteil des Dateinamens, so daß auf einer Diskette die Ter¬ 
minkalender mehrerer Personen gespeichert werden 
können. 

Anschließend wird das aktuelle Datum in vereinfachter Form 
eingegeben und nach dem aktuellen Wochentag gefragt. Aus 
diesen beiden Daten wird der gültige Monatskalender erstellt, 
der dann im Hauptmenue jederzeit abrufbar ist. Zum 
Schluß der Eingangsabfrage muß noch die Uhrzeit eingege¬ 
ben werden; während der Arbeit wird dann die Uhrzeit in der 
Kopfzeile angezeigt. 

Das Hauptmenue verfügt über alle zum Bearbeiten der Ter¬ 
mine notwendigen Funktionen, so können neue Termine un¬ 
ter Angabe von Uhrzeit und Notiz eingetragen werden, be¬ 
stehende können geändert, zeitlich verlegt oder ganz gelöscht 
werden. Nach dem Editieren der Termine kann der Kalender, 
wie oben beschrieben, unter Verwendung des Vornamens ab¬ 
gespeichert werden. Zum Laden wird die Angabe des ge¬ 
wünschten Tages benötigt; geladen wird aber der Tenninplan 
des ganzen Monats. Mit den'+/--Tasten kann ein Kalender 
tageweise durchgeblättert werden, was die Suche nach einem 
bestimmten Termin sehr erleichtert. Schließlich kann das In¬ 
haltsverzeichnis der Diskette per Tastendruck eingelesen 
werden. 
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Die eingegebenen Termine werden vom TERMINKALEN¬ 
DER automatisch sortiert, so daß man sich bei der Eingabe 
der Uhrzeit nicht an die zeitliche Reihenfolge der Termine 
halten muß. Es sei auch noch erwähnt, daß das Programm bei 
der Erstellung der Monatskalender automatisch die Schalt¬ 
jahre berücksichtigt. 

(V. Soergel/ME) 

10 ..£6030 ] 

• ••»•***»***********m*mm mm mm 9m 


••••••* Terminkalender Version 2. 

1 _ 22.10.1985 ***•»*« 

20 '*»•**** (c) Volker Soergel [6727] 


4050 Moenchengladbach 2 ****•»» 

****•*•*•»*****•********•***••*******•*•** 

30 OPENOUT"D":MEMORY HIMEM-1:CLOSEOUT [2548] 

40 termzahl=15:DlM zeit(31,termzahl):DIM b [8346] 
em$(31,termzahl):DIM last(31):DIM woch$(7) 

:DIM daymax(12) 

50 woch$(1)="Montag":woch$(2)="Dienstag":w [13519] 
och$(3)»"Mittwoch":woch$(4)="Donnerstag":w 
°ch$(5)="Freitag":woch$(6)»"Samstag":woch$ 

(7) »"Sonntag" 

60 daymax(1)=31:daymax(2)=28:daymax(3)=31: [13443] 
daymax(4)=30:daymax(5)=31:daymax(6)=30:day 
max(7)=31:daymax(8)=31:daymax(9)=30rdaymax 


(10 ) =31:daymax(11 )=30:daymax(12)=31 
70 MODE 2:INK 0,0:INK 1,26 [2703] 

80 WINDOW #1,1,80,1,3:PAPER#1,1:PEN#1,0 [2241] 

90 WINDOW #2,1,80,4,25:PAPER#2,0:PEN#2,1 [2652] 

100 WINDOW #3,1,80,24,25:PAPER#3,1:PEN#3,0 [3302] 
110 WINDOW #4,1,18,7,22:PAPER#4,1:PEN#4,0 [2397] 

120 WINDOW #5,22,80,5,22:PAPER#5,0:PEN#5,1 [2284] 
130 WINDOW #6,3,18,5,5:PAPER#6,0:PEN#6,1 [2400] 

140 WINDOW SWAP 0,1 [1031] 

150 CLS#0:LOCATE 1,2:PRINT" *** T e r m i [6391] 
nkalender * * * 

";CHR$(164);" Volker Soergel " 

160 WINDOW SWAP 0,2 [1026] 


170 LOCATE 1,10:INPUT"Wie lautet Ihr Vorna 13320] 
me ";person$ 

180 LOCATE 1,12:lNPUT"Bitte geben Sie das [12660] 
heutige Datum ein (z.B. 300885=30.08.85) 

";datum$:day=VAL(LEFT$(datum$,2)):month=VA 
L(MID$(datum$,3,2)):IF (VAL(RIGHT$(datum$, 

2)) MOD 4)=0 THEN daymax(2)=29 

190 FOR index=1 TO 31:last(index)=1:NEXT [2831] 
200 LOCATE 1,14:INPUT"Welcher Wochentag [9138] 
hilf$:index=1:WHILE UPPER$(hilf$)<>UPPER$( 
woch$(index)) AND index<7:index=index+1:WE 
ND:wotag=index 

210 LOCATE 1,16:INPUT"Wie spaet ist es (z. (58661 
B. 12:10 Uhr=1210) ";timer$:std=VAL(LEFT$( 
timer$,2)):minut=VAL(RIGHT$(timer$,2)) 

220 EVERY 3000 GOSUB 1240 [1446] 


230 CLS [91] 

240 '.. TERMINW [5384] 


INDOW AUFBAUEN . 

250 CLS#6:LOCATE #6,2,1:PRINT #6,std:LOCAT [10003] 
E #6,5,1 :PRINT#6,":":LOCATE #6,6,1:PRINT#6 
,USING"##";minut;:PRINT#6," Uhr":IF minut 
<10 THEN LOCATE #6,6,1:PRINT#6,"0" 

260 CLS#3:WINDOW SWAP 0,4:CLS:PRINT:PRINT: [15297] 
onatskalender":PRINT:PRINT" 
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endern": 

oeschen":PRINT:PRINT" 

atalog":PRINT 
einen Tag" [1 792 ] 

280 WINDOW SWAP 0,5 

290 CLS:MOVE 160,40:DRAWR 0,300:DRAWR 479, 
0:DRAWR 0,-300:DRAWR -479,0:MOVE 160,315:D 
RAWR 479,0:MOVE 235,40:DRAWR 0,300 
300 MOVE 7,340:DRAWR 115,0:DRAWR 0,-25:DRA 
WR -115,0:DRAWR 0,25 

310 LOCATE 1,1:PRINT"Uhrzeit":LOCATE 11,1: 
PRINT"Bemerkung Datum: ";woch$(wota 

g) STR$(day);".";MID$(datum$,3,2);". 1 9 

";RIGHT$(datum$,2) 

320 FOR index=1 TO last(dav)-1:LOCATE 2,in 
dex+2:PRINT USING"##.##";zeit(day,index):L 
OCATE 11,index+2:PRINT bem$(day,index):NEX 
T 

330 frag$=UPPER$(INKEY$):IF frag$="" THEN 
330 

340 IF frag$="E" THEN 360 ELSE IF frag$="A 
" THEN 410 ELSE IF frag$="L" THEN 430 ELSE 
IF frag$="S" THEN 520 ELSE IF frag$="D" T 
HEN 730 ELSE IF frag$="+” THEN 980 ELSE IF 
frag$="-" THEN 1010 ELSE IF frag$="M" THE 
N 1290 ELSE IF frag$="C" THEN 450 ELSE 330 
350 '-EINGABE- 


360 WINDOW SWAP 0,3:CLS 

370 IF last(day)<=termzahl THEN LOCATE 4,1 
:INPUT"Uhrzeit des neuen Termins zeit(da 
y, last (day)) .-LOCATE 4,2: PRINT"Bemerkung zu 
m neuen Termin ? ";:LINE INPUT bem$(day,la 
st(day)):IF LEN(bem$(day,last(day)))>48 TH 
EN GOSUB 1120:GOTO 370 

380 IF last(day)<»termzahl THEN CLS:GOSUB 
1060:last(day)=last(day)+1:WINDOW SWAP 0,3 
:GOTO 290 

390 IF last(day)>termzahl THEN LOCATE 10,2 

:SOUND 1,100,100,5:FOR index=1 TO 1000:NEX 

T:CLS:WINDOW SWAP 0,3:GOTO 290 

400 '-AENDERN- 


410 WINDOW SWAP 0,3:LOCATE 4,1:INPUT"Uhrze 
it des zu aendernden Termins hilf:LOCATE 
4,2:PRINT"Neue Bemerkung des Termins ? "; 
:LINE INPUT hilf $:CLS 
420 GOSUB 1140:GOTO 290 

430 '-LOESCHEN- 


440 WINDOW SWAP 0,3:CLS:LOCATE 4,1:INPUT"U 
hrzeit des zu loeschenden Termins ";hilf:C 
LS:GOSUB 1170:WINDOW SWAP 0,3:GOTO 290 
450 '-DIRECTORY- 


460 CLS:MOVE 639,340:DRAWR 0,-300:MOVE 161 
,315:DRAWR 10,0,0:MOVE 235,42:DRAWR 0,10,0 
:MOVE 235,339:DRAWR 0,-10:MOVE 0,0:DRAWR 0 
, 0,1 

470 CAT:MOVE 639,50:DRAWR 0,250 
[5838 ] 

Fuer Terminuebersicht Taste druecken 

II 

490 WHILE INKEY$="":WEND 
500 CLS:WINDOW SWAP 0,3 
510 GOTO 290 

520 '-SPEICHERN- 


530 WINDOW SWAP 0,3:CLS:merke=day 
[4646] 

M 

:SOUND 1 ,100,100,5 

550 IF INKEY(45)< >0 THEN 550 

560 CLS:name$=LEFT$(person$,3)+MID$(datumS 

,3,2)+".TER" 

570 OPENOUT name$ 

580 FOR index=1 TO 15 

590 FOR day=1 TO 31 

600 PRINT #9,zeit(day,index) 

610 NEXT 
620 NEXT 

630 FOR index=1 TO 15 

640 FOR day=1 TO 31 

650 PRINT #9,bem$(day,index) 

660 NEXT 
670 NEXT 

680 FOR day=1 TO 31 


11043] 

[6747] 


[3970 ] 
[10840 ] 


[9109] 


[2566] 
[1 3795] 


[3235] 

[1833 J 
[16312 ] 


(5371 ] 


[8409] 


(2619 ] 
[9396 ] 


[955] 

[2176] 

[8316] 


[3357] 
[6204 ] 


[1 579 ] 


(1607 ] 
[484 ] 
[411 ] 
[1711 ] 

[2842 ] 


[582] 
[3503 ] 

(980 1 
[1336 ] 
[1588] 
[2726 ] 
[350 ] 
[350] 
[1336 ] 
[1 588 ] 
[1947 ] 
[350] 
[350 ] 
[1588] 
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690 PRINT #9,last(day) [2322] 

700 NEXT [350] 

710 CLOSEOUT [902] 

19393] 

":SOUND 1, 

100,100,5:FOR index=1 TO 1000:NEXT:CLS:WIN 
DOW SWAP 0,3:GOTO 290 

730 ’-LADEN- [2677] 


740 WINDOW SWAP 0,3:CLS:LOCATE 4,1:INPUT"W 
elches Datum soll geladen werden ";datum$: 
merke$=datum$:INPUT" Was ist das fuer ei 
n Wochentag ";hilf$:index=1:WHILE UPPER$(h 
ilf$)< >UPPER$(woch${index)) AND index<7:in 
dex=index+1:WEND:wotag=index 
750 name$=LEFT$(person$,3)+MID$(datum$,3,2 
)+".TER" 

760 CLS:LOCATE 1,2:PRINT" 

":SOUND 
1,100,100,5 

770 IF INKEY(45)<>0 THEN 770 
780 OPENIN name$ 

790 FOR index=1 TO 15 
800 FOR day=1 TO 31 
810 INPUT #9,hilf 
820 zeit(day,index)=hilf 
830 NEXT 
840 NEXT 

850 FOR index=1 TO 15 
860 FOR day=1 TO 31 
870 INPUT #9,hilf$ 

880 bem$(day,index)=hilf$ 

890 NEXT 
900 NEXT 

910 FOR day=1 TO 31 
920 INPUT #9,hilf 
930 last(day)=hilf 
940 NEXT 
950 CLOSEIN 

960 day=VAL(LEFT$(datum$,2)):month=VAL(MID 
$(datum$,3,2)):LOCATE 4,2:PRINT" 

".•SOUND 1,100, 

100,5:FOR index=1 TO 1000:NEXT:CLS:WINDOW 
SWAP 0,3:GOTO 290 

970 '- "DAY" VERAENDERN 


[18107] 


[3390] 
[5939 ] 


[810] 
[1156] 
[1336 ] 
[1588] 
[891 ] 
(1791 ] 
[350] 
[350] 

[1 336] 

[1588] 

[994] 

[2001 ] 

[350] 

[350] 

[1588] 

[891 ] 

[21103 

[350] 

[752] 

[14339] 


[4077 ] 


980 day=day+1:IF day>daymax(month) THEN da 
y=daymax(month):GOTO 290 
990 wotag=wotag+1:IF wotag>7 THEN wotag=1 
1000 GOTO 290 

1010 day=day-1:IF day<1 THEN day=1:GOTO 29 
0 

1020 wotag=wotag-1:IF wotag<1 THEN wotag=7 
1030 GOTO 290 
1040 END 

1050 '. SORTIERROUT 

INE.. 

1060 FOR index2=1 TO 15:FOR index=1 TO las 
t(day)-1 

1070 IF zeit(day,index)»zeit(day,index+1) 
THEN hilf=zeit(day,index):hilf$=bem$(day,i 
ndex):zeit(day,index)=zeit(day,index+1):be 
m$(day,index)=bem$(day,index+1):zeit(day,i 
ndex+1)=hilf:bem$(day,index+1)=hilf$ 

1080 NEXT 


[5307] 

[3384 ] 
[411 ] 
(1845 ] 

(3332 J 
[41 1 ] 
[110] 
[4091 ] 

[3505] 

[14604] 


1350] 


1090 NEXT [350] 

1100 RETURN [555] 

111° '.."BEMERKUNG K [43031 

UERZER". 

Die Berner [8444] 

SOUND 1 ,100,10 

0,5:FOR index=1 TO 1000:NEXT:CLS:RETURN 

11 30 '. AENDERN [3919] 

1140 FOR index=1 TO last(day)-1:IF zeit(da (65661 
y,index)=hilf THEN bem$(day,index)=hilf$ 

1150 NEXT [350] 

1160 WINDOW SWAP 0,3:RETURN [2530] 

1170 '.LOESCHEN [3883] 

1180 FOR index=1 TO last(day)-1:IF zeit(da (7751) 
y,index)=hilf THEN zeit(day,index)=0:bem$( 
day,index)="" 

1190 NEXT [350] 

1200 FOR index2=1 TO 15:FOR index=1 TO las [14337] 
t(day)-1:IF zeit(day,index)=0 THEN zeit(da 
y,index)=zeit(day,index+1):bem$(day,index) 

=bem$(day,index+1):zeit(day,index+1)=0:bem 
$(day,index+1) 

1210 NEXT [350] 

1220 NEXT [350] 

1230 last(day)=last(day)-1:RETURN [3125] 

1240 '. UHRZEIT . [3138] 

1250 minut=minut+1:IF minut>59 THEN minut« [3874] 
0 :std=std +1 

1260 IF std>23 THEN std=0 [1518] 

1270 LOCATE #6,2,1:PRINT#6,std:LOCATE #6,5 [9920] 
,1:PRINT#6,":":LOCATE #6,6,1:PRINT#6,USING 
"##";minut;:PRINT#6," Uhr":IF minut<10 TH 
EN LOCATE #6,6,1:PRINT#6,"0":MOVE 122,340: 

DRAWR 0,-25 

1280 RETURN [555] 

I 290 '. KALENDER ERR [4542] 

ECHNEN . 

1300 CLS:LOCATE 20,1 :PRINT"Kalender ";:PRI [10632] 
NT USING"##";month;:PRINT"/RIGHTS(datum$ 

,2):LOCATE 1,4:FOR index=1 TO 7:PRINT" 

";woch$(index):PRINT;NEXT 
1310 MOVE 639,340:DRAWR 0,-300:MOVE 161,31 [6909] 

5:DRAWR 10,0,0:MOVE 235,42:DRAWR 0,10,0:MO 
VE 235,339:DRAWR 0,-10:MOVE 0,0:DRAWR 0,0, 

1320 index=day:hilf=wotag [2412] 

1330 WHILE index>1:index=index-1:hilf=hilf [5220] 

-1:IF hilf=0 THEN hilf=7 

1340 WEND [390] 

1350 hilf$=woch$(hilf):spalte=27 [2945] 

1360 FOR index=1 TO daymax(month) [3291] 

1370 zeile=3+2*hilf-1:LOCATE spalte,zeile: [6296] 
PRINT USING"##";index 

1380 hilf=hilf+1:IF hilf>7 THEN hilf=1:spa [4754] 
lte=spalte+4 

1390 NEXT [350] 

(5838] 

Fuer Terminuebersicht Taste druecke 

1410 WHILE INKEY$="":WEND [1607] 

1420 CLS:WINDOW SWAP 0,3 [484] 

1430 GOTO 290 [411 j 
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NV ollten Sie nicht schon längst einmal Ihr 
CP/M 2.2 aufpolieren, haben sich aber 
nicht getraut? Keine Angst, bei richtiger 
Anwendung von SETLIP.COM kann das 
auch ein Anfänger. Meist gibt es Pro¬ 
bleme, die englischen Anweisungen zu 
verstehen, aber hier wird Ihnen erklärt, 
wie Sie die gewünschten Farben für BOR- 
DER, PAPER und PEN unter CP/M ein¬ 
schalten und sich einen persönlichen Be¬ 
grüßungsstring schaffen. Dann wird der 
CPC Sie z.B. mit ”Hallo Norbert! - Ich 
erwarte Deine Befehle!” begrüßen. 

Möchten Sie auch unter CP/M die 
Funktionstasten nach Ihren Wün¬ 
schenbelegen? Kein Problem, Sie kön¬ 
nen bis zu 32 Tasten in verschiedenen 
Ebenen (Normal, mit SHIFT-Taste, mit 
CTRL-Taste) belegen. Hier können Sie 
z.B. Ihren Absender eingeben, der dann 
auf Tastendruck erscheint. 

Wir wollen die Tastenbelegung so vor¬ 
nehmen, daß diese für WORDSTAR 
genutzt werden kann. Genauso kann 
die Tastatur aber an jedes andere CP/ 
M-Programm angepaßt werden. Dieser 
erste Versuch sollte aber mit einer 
neuen, leeren Diskette vorgenommen 
werden. Formatieren Sie wie üblich mit 
dem Befehl FORMAT oder DISKIT2. 
Dann übertragen Sie mit FILECOPY 
SETUP.COM das SETUP-Programm 
auf die leere Diskette. 

Nun rufen Sie den Befehl SETUP auf 
und Sie sehen die Meldung "Initial 
command buffer empty” und "Is this 
correct (Y/N):” Die Frage ”Is this cor- 
rect (Y/N):" erscheint bei jeder Mel¬ 
dung. Wenn Sie Y eingeben, geht es 
weiter zum nächsten Punkt. Wollen Sie 
etwas ändern, so geben Sie N ein. 

Im "Initial command buffer" kann man 
Sofortbefehle ablegen, die mit dem Auf¬ 
ruf von CP/M ausgeführt werden. Ge¬ 
ben Sie hier DIR'M ein, so wird immer 
zuerst das Directory angezeigt. Die so¬ 
fortige Ausführung wird durch Hoch¬ 
pfeil + M ( A M) erreicht, das entspricht 
der ENTER-Taste. Aber auch jedes 
Programm kann hier sofort gestartet 
werden. Meistens empfiehlt es sich, an 
dieser Stelle ein CP/M-Programm mit 
deutschen Sonderzeichen zu starten, 
z.B. DEUTSCH'M. Und auch das 
Hauptprogramm kann hier gestartet 
werden, bei WORD STAR durch WS‘M. 





Drücken Sie ENTER, wenn alles einge¬ 
geben ist und bestätigen Sie die Frage: 
"Is this correct (Y/N):" nun mit Y. Mit 
der Meldung ”sign-on String” wird der 
CP/M-Begrüßungsstring dargestellt, wie 
er normal auf der Betriebsdiskette steht. 
Geben Sie wieder N ein und schauen sich 
den alten String genau an. Hochpfeil 
plus Schrägstrich nach rechts, plus 
Klammeraffe zeigen an. daß die folgen¬ 
den zwei Buchstaben die PAPER-Farbe 
bestimmen. 

Wir wollen diese ändern und geben die 
ersten drei Zeichen so ein, wie sie schon 


CP/M-schneidern auf de 



Klammeraffe und die Farben 1 - 26 sind 
die Buchstaben a - z; also i = 9 = 
grün. 


sind (Hochpfeil + Schrägstrich + Klam¬ 
meraffe), dann zweimal den Buchsta¬ 
ben i. Diese beiden Buchstaben an der 
vierten und fünften Stelle wählen die 
Farbe aus, dabei ist die Farbe 0 der 


Dann geben wir wieder Hochpfeil + 
Schrägstrich ein, gefolgt von dem Buch¬ 
staben a, der hier die PEN-Farbe an¬ 
zeigt. Jetzt zweimal Klammeraffe einge¬ 
ben für die PEN-Farbe 0. Nun geben 
wir Hochpfeil -f eckige untere Klam¬ 
mer ein, das ist für die BORDER-Farbe. 
Hier können wir zweimal den Buchsta¬ 
ben c eingeben, für die BORDER- 
Farbe rot. 
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Nun schreiben Sie sofort anschließend 
Ihren eigenen Begrüßungstext, z.B. 
"CP/M 2.2 - Ich bin bereit! Du auch?”, 
gefolgt von Hochpfeil + J und Hoch¬ 
pfeil + M (TM). Das setzt den Cursor in 
die nächste Zeile und führt den Befehl 
aus. Nach ENTER und Y übergehen 
wir den Abschnitt "Printer power-up 
string” und drücken noch einmal Y. 


Hier erscheint die Meldung "Key- 
board translations:” und wir geben wie¬ 
der N ein, weil wir etwas eintragen wol¬ 
len. Die Eingaben, die wir hier machen, 
entsprechen in etwa dem Befehl KEY 
DEF im Basic. Wir wollen hier eine 
wichtige Anpassung für WORDSTAR 
vornehmen. Die Pfeiltasten belegen wir 
so, daß das Editieren in Wordstar 
leichter fällt. 


Jede Taste kann in drei Ebenen belegt 
werden. In der Normalebene können 
Sie mit den Cursortasten jeweils einen 
Buchstaben nach links und rechts bzw. 
eine Zeile nach oben und unten gehen. 


Mit der SHIFT-Taste springt der 
Cursor zum nächsten Wort links oder 
rechts bzw\ zur nächsten oder vorheri¬ 
gen Seite. Wenn Sie die Control-Taste 
und Pfeil links bzw. rechts drücken, 
geht der Cursor an den Anfang bzw. an 
das Ende der Zeile. Mit CTRL plus Pfeil 
oben oder unten, wird der Text nach un¬ 
ten bzw. oben gescrollt. 

Die Eingabe geschieht mit dem Buch¬ 
staben A, gefolgt von dem Tastenwert. 
Die Tastenwerte entnehmen Sie dem 
Anhang III, Seite 16 des Handbuches. 
Dann folgen die ASCII-Werte für die 
drei Ebenen. Eine Übersicht dieser 
Werte findet man im Handbuch, An¬ 
hang III, Seite 14. Besser ist der Über¬ 
blick im Buch ”CPC 464 inside out" von 
Huslik, auf den Seiten 390 - 393. Die 
Werte 1 bis 26 entsprechen der Eingabe 
von von CTRL+A bis CTRL+zrDie 
Zeichen 64,91 - 93 und 123 - 126 findet 
man auch in jedem guten Drucker¬ 
handbuch. Je nach Zeichensatz ent¬ 
sprechen sie dem Klammeraffen, den 
eckigen und geschwungenen Klam¬ 
mem, dem Schrägstrich nach rechts 
und dem geraden Strich bzw. den Um¬ 
lauten ÄÖÜ äöü, dem ß und dem §. 

Für die obere Pfeiltaste lautet die 
Eingabe: 

A 0 5,18,141 

Dabei entspricht 5 der CTRL-f E-Taste 
(E) und 18 der CTRL+R-Taste (’R). 
Der Wert 141 entspricht der Funktions¬ 
taste F13, diese wird erst im nächsten 
Abschnitt belegt. Alle 32 Funktionsta¬ 
sten (F0 - F31) haben die Werte 128 - 
159 und diese Werte köftnen auf belie¬ 
bige Tasten gelegt werden. Um die Ein¬ 
gabe perfekt zu machen, geben Sie nun 
noch ENTER ein. 

Die Belegung der Pfeiltasten erkennen 
Sie in der Tabelle an den Tastenwerte 
0,1,2 und 8. Die COPY-Taste (9) wird als 
Ein-/Ausschalter für den Einfügemo- 
dus benutzt. Die DEL-Taste (79) wird 
mit ihrem normalen Wert zum Löschen 
nach links (127) belegt. CLR (16) löscht 
mit dem Wert 7 unter dem Cursor. 

Die deutschen Umlaute können in CP/M 
nicht neu dargestellt werden, wie es in 
Basic mit dem Befehl SYMBOL ge¬ 
schieht. Diese Werte müssen mit einem 
File DEUTSCH.COM vorher eingela¬ 
den werden. Die Belegung der Tasten 
kann aber mit SETUP erfolgen. Wir le¬ 
gen diese Zeichen nun auf die Tasten 
17,19 und 22 (die beiden eckigen Klam¬ 
mern und der Schrägstrich nach rechts) 
in der Reihenfolge ä - ö - ü. Und zwar 
richtiger mit den Kleinbuchstaben in 
der Normal- und den Großbuchstaben 
in der SHIFT-Ebene. Auf der Taste 26 
(Klammeraffe) liegt ’ß’ und in der 
SHIFT-Ebene der ’ § \ 

Machen Sie Ihre Eingabe nach der nun 
folgenden Tabelle, immer mit einem A 
beginnend und jede Zeile mit ENTER 
abschließen. Nach der letzten Eingabe 
noch einmal ENTER drücken. Dann 
sieht die Tabelle so aus: 


Key code 

Normal 

Shift 

Control 

0 

5 

18 

141 

1 

4 

6 

142 

2 

24 

3 

143 

8 

19 

1 

144 

9 

22 

22 

22 

16 

7 

7 

7 

17 

123 

91 


19 

124 

92 


22 

125 

93 


26 

126 

64 


79 

127 

127 

127 

Wir schließen die 

Eingabe 

der ge- 


samten Tabelle mit Y ab und gelangen 
zu "Keyboard translations:”. Hier wol¬ 
len wir nun die normalen Funktionsta¬ 
sten des Zahlenblocks belegen und die 
oben definierten zusätzlichen Funktio¬ 
nen auf den Pfeiltasten in der Control- 
Ebene. Zunächst N eingeben, dann wie¬ 
der bei jeder Eingabe mit A beginnen 
und mit ENTER abschließen. 
Zunächst legen wir für unsere Korres¬ 
pondenz unseren vollständigen Absen¬ 
der und die Grußformeln auf den Zah¬ 
lenblock. Wir beginnen mit dem Na¬ 
men auf der 1 im Zahlenblock: 

A 1,Schneider CPC International 


Und so sieht die gesamte fertige 
Tabelle aus: 


Expansions Token Expansion String 

1 Schneider CPC International 

2 Fuldaer Straße 6 

3 3440 Eschwege 

4 Tel.: 05651/8702 

7 Sehr geehrter Herr 

8 Mit freundlichen Grüßen 


13 

14 

15 

16 


QW 

QD 

“QZ 

QS 


Nachdem wir entsprechend dieser Ta¬ 
belle unsere eigene Adresse, die Begrü¬ 
ßungsformeln - nach eigenen Wünschen 
abzuändern(z.B. Hallo Fans!)-und die 
Belegung der Pfeiltasten eingegeben 
haben, drücken wir noch einmal 
ENTER und dann Y. 


Alle anderen Abschnitte lassen wir un- 
geändert, indem wir immer Y eingeben. 
Bis wir dann zur Frage: ”Do you want to 
update your System disc (Y/N):” kom¬ 
men. Hier bestätigen wir mit Y und 
w r enn wir gleich einen Probelauf wol¬ 
len, dann auch die nächste Frage mit 
Y beantworten. 

Nun haben Sie ein eigenes CP/M! 
Wenn Sie nun noch FORMAT.COM 
mit FILECOPY FORMAT.COM auf 
diese Diskette bringen, können Sie in 
Zukunft alle Disketten mit dem eigenen 
CP/M formatieren. Wo Sie die Bele¬ 
gung der Tasten nicht brauchen, kön¬ 
nen Sie diese weglassen oder abändern. 


So sieht der komplette neue ’Sign-on 
string’ aus: 

\ (5>ii'\a@ @‘]ccCP/M 2.2 - Ich bin be¬ 
reit! - Du auch?TM 

H.-J. Behrendt 
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Fastcopy 

Faster then PIP 

Fastcopy ist ein schnelles Ko pierprogramin für zwei Lauf¬ 
werke. Die Anwendung dieses Programms als Einzel-File- 
Copy ist den Besitzern eines Zweitlaufwerkes Vorbehalten, 
die beim Kopieren mit der CP/M-Masterdiskette bisher ein 
wenig stiefmütterlich behandelt wurden. 

Weiterhin beinhaltet das Tool noch eine Disk-Utility, die das 
Editieren des Directorys wesentlich vereinfacht. Im Ge¬ 
gensatz zur bekannten 2-Drive-Kopiermethode mittels PIP, 
zeichnet sich Fastcopy durch anwenderfreundliche Menue- 
führung und einer erheblichen Geschwindigkeitssteigerung 
von bis zu 40 % aus. 

Anleitung: 

Das Programm kann von CP/M aus unter dem Namen 
COPY' aufgerufen werden. Nach dem Aufruf meldet es sich 
mit dem Hauptmenue. Leicht kann man feststellen, daß zwei 
Unterprogramme aufgerufen werden können. 

1. Das Kopierprogramm: 

Dieses Kopierprogramm zeigt die Programme der Diskette 
im Laufwerk A' an und fragt, ob das angezeigte Programm ko¬ 
piert werden soll. Diese Frage muß durch Drücken entweder 
der T- oder der 'N'-Taste beantwortet werden. Nachdem alle 
Programme angezeigt wurden, beginnt das Programm zu ko¬ 
pieren. Die Kopierroutine endet mit der Frage, ob eine weitere 
Diskette bearbeitet werden soll. Wird diese Frage bejaht, so 
springt das Programm zum Hauptmenue zurück. 

2. Das Löschprogramm: 

Mit Hilfe dieses Programms ist es möglich, einzelne Pro- 



0 ) .y . 

TD CJ X — 

C — 01 ^ 
x — a a> • 

• kw X C 
- fl) X 3 X 4) 

c x x n x td 
4) v kw a kw 
TD X 3 S 01 
hw J C O 5 
— 4) ül <D a> X 
»DHE C 

£ £ XX 4) 

>- C 0) Q, ül X 
Ml 3rt 3 X 3 

ü J3 C-H fl Q kw 

a) 4) frw 2 ai 

kW X £ I IW C 
41 kw E tl 3W 

4 J x: e o <0 ra 3 

C O 4) CJ TD 14 

3 01 0) E 

4) 0) X C fl E 

C tP-H 3W lis 

4) TD (0 flißw 

— X 4) k OU 

kw X C Di fl) kw 

C 014JH ß-DMl 
0) 3 4) 3 0) 0) 

X 0w X • X X 01 X 

ü 3 MÜH J « C 
O (0 X kw (0 TD 3 
W J D -rl £ a) 

ffl i OWT) «1 

X TW II) II) M C 
O 41 3 C E «W # 


N 


•4W 


c 

4) 

JD 

o — 

-H X 

ai x 

kw 0) 


s 

kw -C 

0 ) u 


>1 4) 3 0)- X 2 

'•HWWkCUO' 
•www oj - w in 
01 fl E frw Di 0) x fl) 
01 X I Tw Iw 4) TD 
3Uk£3ll)ll)iD 
MDOiCJiOWC 
CD 0. C CJ 3 4) 4) 

01 c C .5 .Q 

W 5)4) 01 O - 0 ) 0 ) 

TD 4) X X C X 4) D> 

coixflxajcjxc 

M TD X aTD 4) 01 X 
<C<D01Qkw3flfl) 
4) JD 0 ) kw fl) kw H 
>|W k 3 134 ix: 
ä k « Eh - ü 
kw w w X U M 

13. £ E CL Di CJ- 3 

2 >w E E E X kw TD 


Hl •— 

c 

S -H 
0 ) 
a. oi 
cj 

u 
kW 4) 
4) 01 
X 01 
G 4) 
3 O 
kw 
- tJi 
01 

kl 4) 
0) 01 
-C 01 
CJ 01 
-H 0) 
41 O 
a kw 
01 Di 
3 kw 
4) 4) 
J0 kw 
U kw 
01 3 
X (O 
> 

N 0) 
•H 
01 T3 
4) 

TD >W 
0 ) 
4) 3 


41 

■C 

o 

•H 

0 ) 

- a 

4) 01 
X 0) 

>w Di 
ß 

C 

fr. fl) 

O 

fl 

— Q 
4) 

01 C 

01 4) 

4) TD — 
O C U 
)w 4 ) m 
Ol Iw o 

■ Iw 4) O 
4) X O* 

■ kW Q, 


a 

O 

X 


C X o 4) 

4) 


3 

CP 

l 4) 3 X X 

TD 


M 

O 

oijcm 3 

Iw 


ai .- 

kw 

3 kW • 3 X 

0) 


X kw Qw 

< 4) • N O 

3 


CJ fl 


3 «- oi 


■ ». 

x x 

kw 

kw X « 4) X 

kw 

C 

4) CJ 

0) 

4) 3 4) x fl 

.« fl) 

fl 

Q. 

TD 

3 fl 01 TD 

d) TD 

4) CO frw 


rH W <D -P rH 

r-i 

O 

C 


0 

kW •' 

r- 

kw kw CJ 4) TD 

0 ) 

0 ) c 

O 

Di CP fl 

kw 

kw 0 ) 

X X 

O O X X C 

4) 

4) kw 

X 

kw kw X 4) fl 

X 

01 fl) 

CP 01 

a Q- C X E 

X 

01 X 

X y; 

kw kw 3 

an a 

kw C 

o) 4) a 4) x 

t: 

O O 

>w fl 

x x 3 X E 

O 

kw X 

a-x 

a a c oi e 


CP 

0 x 

O O 0 ) fl o 

- 

"" § 

u 

>w 

X X 2 Eh X 

1 


TD fl) -• 

X) — 

C 4) - 
3 <0 
C a 01 
01 01 

ScS, 

E C CO 
fl 


« 

i I CD 
DUO 
«HA« 

~ — o. 


— C n 0 ) Iw- C 


3 * «ü 3 fllWH 


— SQQT3- 2 2 W > 


41 *-w 

o x: 

kw (0 
CD N 


O CO 

O <M 
CM t- 
II II 


fl) 0 ) 
01 01 
01 01 
41 4) 
O O 
kw kw 
Di Di 
kw kw 
fl) O 
Ew x X 
CO kw O 
2 3 4) 

o m w 


kw 

CD CD fl) 
2 2 Di 
M H fl) 
KK*J 
Ewfw C 
CO CO -H 

II II II 


in fl) 

r- »TH 

fr) kw kw x: 
cx xi xi u 

x co co co 

Eh 


a fl) O 4) XJD kw 

XX) Iw TD X! C 

X) x) D> kw Cu 4) 
C fl) kw 4) O -l 
4) X O 3 O XI 

•X) 01 XJ — 10 

fl -H U TD — m -H 

Q D fl) rw in in kw 

CO 4) CN IN 10 

- * kw . . > 

• c • • 

rtlOOC 
— rW — — fl) 
ß TD 

— X 10 X X -H 

W < -H < < 4) 
(3 2 kw 03 « JD 

M Qi io K « 

> < < C 

fl) 


frw 


O kw 41 
Ö 3 " E 
.Q n m io 
*- 2 
frw WJ . 

O C • (1) 
fl) w— x 

" X «TD 

'S- TD v 

io IO X 

* TD • -I 

-kW-* 

x fl) x xj 

< X < C 

§ XI 03 4) 

m 3 

< x < ^ 
kW x 

• • io .. fl) 

' > frw 


0 ) 

X 

i—l rH 
0 ) 4) 
« 3 x 


S) x> 
X fl) 

fl) g 

X ID 
D X! 


m < 
8 § 


0 ] 
C 4) 
41 01 
E 4) 
(0 -H 
C Q 
kw 

41 — 

•H 

cx 

0 

ÄÄ 


Ol 

c 

3 

kw 

4) 

3 

kw 

a 

kW 

4) 

XI 

5 


N 


01 

X •— 
kw 

0) E 
"> » 4) 
kw C 
C 3 -w 
4) (0 4) 
E J 
10 C 
C C 0 
E 0) > 


* rW CP 

E kw 4) C 

m CP 3 3 

kw O x) kw 

Di kW X 0) 

O CX (0 3 

kw - kw 

cx c co a 

• O 4) kw 

E 4' > TD 4) 

4) Xi X 

TD rW 0) 4) fl) -s 

(CI X X O 

C X 10 m 

4) kw CP Di kw x) 
C fl) C C 3 C 

4) > -H -H N fl) 

■HXBH -h 

TD O 0) TD 

(0 kw kw -H 

C CO 3 3 TD J3 

Q) NN CJ 

-H kw «3 

X tu aj 4) oi kw 

m c H H H TD 
•rt 4) X X X C 
kw TD (0 (fl rö fl) 
(0 0) *H -H -H X) 
> -H kW kW kW 01 

X 10 (0 (Ü (0 

4) O > > > Ew 

oi co 

fl) kw — — — — 


c 

~ 4) 

TD 
• (0 
~ TD -H 
C fl) 

• *H Dl 

c oi 
fl) 0) 

TD C X) 

(0 0) X 
1-1 TD fl) ■ 
fl) C C 
tJl Ifl 01 -H 
X -H 41 

fl) kw a oi 

X O 

X > c c 
41 O fl) 
X - > TD 

01 CJ c 
•H Z. X (0 
Q H O X 
■ 3 kw 
C X (0 0 

O frw > 

> O TD 
U kw- 
TD - -H CJ 
kw 3 2 
•HC H 
3 fl) § • 
E E cm 

01 rfl (0 X 
E 2 kw CX 

fl E 08 
kw 0 ) kw- 
giTD Qw ^ 

kW kW 01 fl) 

frw 4) 0) E 
X TD fl 
0) C 2 
0) 3 TD 
TD kw E 

01 -H fl) 

rH 01 3 T3 
•H 3 

4) E fl) kw 
Ew X fl) 
XXX 
ai-HH c 
X 0 ) kw 3 
•H Eh TD 
fl) 01 

3 kw kw O) 
N 41 0) 3 

oi W E 
kw fl) fl) 

41 -H -rl kW 

Q □ O M 


C 

fl) •*, 
X 

3 • 
- fl C 


X 

fl) 

« 

3 . . _ .. 

fl) kw X TD Q. 

CP 3 O kw O 

TD kw fl) « 

C fl) 3 3 

fl) N Q C 

kw O X fl) 

fl) kw X kw X 

-H 0, ü X E 
Q, -H CD fl 

O kw x 3 01 

M fl) TD X 4) 
01 C fl) Di 

x x 4) 0 ) Di 

JCHCXII1 
• C TD 3 O 4) 

C 3 kW TD 

0) frw 3 TD 3 

X N kw TD X 

•H U 

E 3 3 3 

E C fl 

fl 0) 4) 

kw X £ X 

.. .. D"H X X 

fl fl) O fl) Q, E 

E kw X 3 O 

TD x p, x fl 0) 

kw a 0 2 

-H 3 01 01 TD 

3 fl fl oi E C 

2 TD CP-H 3 
0) C 

3 E X 3 kw (fl 

C x Dix 3 E 

fl) C O C E 

E C x x fl 

x C kw kw e kw 

an a« 


0) kw 
Di 0) 
0) TD 
Di 

01 3 
3 C 


SS c» TD fl O 

fl 0) X kw 

2 — - X Q, 
3 X X 
oi •« o a 
fl Ol Q) 3 3 

O C 01 kw fl 

= fl) X 2 

x X 
D < 0 ) 
01 

- - TD 


Di 


4) 4) 


4) 







C 4) 41 0) 









fl 

E 

TD 4) 

kw Di kw kw X X X 





x 3 fl) 

4) C O 0) 4> d) 41 



O 

kw X X 

XXX 

<D 3 01 

x fl x x x x x 

o 

Ü 







0* 


O J Ew 

frw < CO £ CO CO CO 


w- 


- ew 
< 
2 Kl 

kW ß, 

CD bD 
« K 
2 


C N 
4) kw 

E d) 
x > 
X kw 
fl 4) 
3 x 
0) Q, 
3 O 
< X 


41 


108 cpc 


2 '86 Sonderheft 





11111 r 11111111 ■ 11 


INI 


iiiiiiiiiiimiiiiiiiiiiminiiiiiiiiiiiimiiiiMiiiiiMi.iiiMiiiiii 


im 


IMIIMIIIIHMIIIIII 


gramme von einer (oder auch von mehreren) Diskette(n) zu lö¬ 
schen. Als erstes fragt das Programm nach dem Laufwerk, in 
dem sich die Diskette mit dem zu löschendem Programm be¬ 
findet. Nachdem die Frage beantwortet ist, interessiert sich 
das Programm nun für den Namen des Programms, das ge¬ 
löscht werden soll. Nach der Eingabe des Namens erkundigt 
sich das Programm, ob das angegebene File auch wirklich 
gelöscht werden soll. Wird diese Frage bejaht, so wird das File 
gelöscht. Ansonsten wird dieses Unterprogramm abge¬ 
brochen und zum Hauptprogramm zurückgekehrt. 

Dei letzte Punkt im Hauptmenue dient zum Beenden des 
Programms. 

Zuletzt noch einige Tips zum Abtippen und Aufstocken des 
Programms: 

-■ Das Programm kann ohne Kommentare abgetippt 
werden. 

- Das Programm kann nicht als Ganzes unter CP/M 2.2 im 
Speicher stehen. Erfahrungen unter CP/M 3.0 liegen mir 
nicht vor. 

- Die Unterprogramme müssen unter den im Hauptpro¬ 
gramm angegebenen Namen auf der Diskette stehen. 

- Um das Programm als COM-File auf Diskette zu schreiben, 
müssen Sie im Menuepunkt Compiler-Options von 
TURBO-PASCAL die 'C-Taste drücken. Dies bewirkt, daß 
TURBO auf COM-File kompiliert. Durch Drücken der’Q- 
Taste kommen Sie wieder in das Hauptmenue von TURBO. 
Erneutes Drücken von ’C verursacht, daß TURBO das Pro¬ 
gramm auf Diskette schreibt. 

- Weitere Funktionen sind unter CP/M 2.0 nicht zu imple¬ 
mentieren, da der Speicherplatz zu klein ist. Mehr Speicher¬ 
platz kann durch Verkleinern der Konstanten BUFFER er¬ 
reicht werden. Dies verlangsamt jedoch den Kopierbetrieb. 
Bei einem Betrieb von TURBO mit erweitertem Speicher¬ 
platz. müßte sich durch Vergrößern der Variablen BUFFER 
die Kopiergeschwindigkeit steigern lassen. 

Arndt Grass 
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PROBLEME. FRAGEN 
ANREGUNGEN...? 

JEDEN MITTWOCH ZWISCHEN 14.00 UND 17.00 UHR 
STEHEN IHNEN UNSER HERR RITTER (REDAKTION), 
HERR MORGEN (PROGRAMMIERUNG) UND 
HERR STILLER (ADENTEUER) AM 
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HEISSEN DRAHT 

ZUR VERFÜGUNG. RUFEN SIE DOCH EINFACH AN. 

Tel.: 05651/8702 
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(Generalvertretung-Deutschland) 

Abt. Versand und Kundenbetreuung ■ Th. Müller 
Peter Herzog - 0-8240 Berchtesgaden Postfach 2361 
NEUE Hotline Telefon 0 86 52/6 30 61 
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Wie immer TOPSOFTWARE zum »benutzerfreundlichen« Preis 


J 


I 


wm 


Schneider CRC 464/664/6128 
Kassellsn: 


m fix 

• ZAXXON 

• WINTERGAMES 

Cyrus II Chess 
Henenkiiche - Deutsch 
Z0RR0 

■ Frankle goes lo Hollyw. 

• Impossible Mission 

• Hyper Sports 
BRUCE LEE 
Slapshot 

• Tornado Low Level 
SPY vs SPY 
ExplotJing Fist 

Yie ar Kung Fu 
Match Day 
SABOTEUR I 
nilBO-ESPRIT 
Hacker 

Codename Mat II 
STARION 
D.Th. Decalhlon 
D.Th. Superiesl 
FIGHTER PILOT - Deutsch 
NIGHTSHADE 
ALIEN 8 
NIGHTLORE 
ELITE-DEUTSCH 
NeverEndmg Story 
They sold a Million 
' The GOONIES 
Spitlire 40 


nur OM J4.M 
DM J4.ID 
DM 34.90 

DM 36.90 
DM 29.90 
DM 39.90 
DM 34.90 
0M 39.90 
DM 34.90 
DM 33.90 
DM 3190 
0M 29.90 
DM 34.90 
DM 34.90 
DM 34.90 
0M 34.90 
DM 39.90 
DM 39.90 
0M 36.90 
DM 29.90 
DM 34.90 
0M 2990 
DM 29.90 
DM 34 90 
DM 34.90 
DM 34.90 
DM 34.90 
DM 54.90 
DM 34.90 
DM 34.90 
DM 34 90 
DM 3990 


CPC-Computer Dictionary 

464/B64/6128 

(DAS Schneider 
SPRACHPROGRAMM) 

- EINZIGARTIG am Sottwaremarkl 

* Über 20.000 fest gespeicherte 
Vokabeln 

‘ Über 10.000 Stichwörter 

* Minimale Zugriffszeit 

• Selbst individuell erweiterbar 

- Lernerfolg durch Vokabeltrainer 

* Nutzt die CPC und Floppy- 
Speicherkapazität voll aus 

•Eine GROSSE Hilfe in SCHULE 
und Beruf 

• Eine echte Bereicherung Ihrer 
Schneider-Softwaresammlung 

• Deutsche Anleitung und 
Menuetührung 

3" o. 5,25" Diskette . 
ENGLISCH/DEUTSCH 

nur DM 69.90 
DEUTSCH/ENGLISCH 

nur DM 69.90 
SET DEUTSCH/ENGLISCH 
und ENGLISCH/DEUTSCH 
nur DM f 19,90 


JOYCE PCW 8256-Sottware 

JOYCE IDSIREU-PACK Hr DM 199.99 
(DAS Gesch31lssollware-Paket) 

* ADRESSVERWALTUMG 

* LAGERVERWALTUNG 

* FAKTURIERUNG 

Schneider CRC 464/664/8128 
3” Disketten: 

S0BDTIUR »COMBAT IVNX nr DM 39.90 
TURBO ESPRIT » HARRIER ATTACK 

Hr DM 39.90 

DM 47.90 
DM 47.90 
DM 47.90 
DM 47.90 


Spy vs SPY 

• Spitlire 40 

• The Rocky Horror Show 
■ Strange Loop 
(Nachfolger von Sorcery) 
CYRUS II Chess 
TASW0RD-D 
Highway Encounter 
LORDS OF MIDNIGHT 
ELITE-DEUTSCH 
They sold a Million 
BRUCE LEE 
SLAPSHOT 
SORCERY PLUS 


DM 47.90 
DM 98.90 
DM 49.90 
DM 49.90 
DM 69.90 
DM 47 90 
DM 59.90 
DM 49.90 
DM 49.90 


SCHNEUVERSAND 


(Die Preise sind nur gültig bis 2 ur nächsten CPC-lnternational-Ausgabe.) 

Ständig Neuheiten Händleranfragen erwünscht 

Bei Bestellungen unter DM 70 werden DM 4 - Porto/Verpackung berechnet. Die Lieferung erfolgt 
per Nachnahme oder Vorkasse (Euro-Scheck) Telefonische Bestellung und Beratung ist möglich!!! 

Mit* gekennzeichnete Programme waren bei Drucklegung noch nicht auf Lager 
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Neben der Hardwareausstattung des 
JOYCE (z.B. kein Joystickanschluß) und 
dem Textverarbeitungsprogramm Loco- 
Script, läßt auch der Befehlssatz des mit¬ 
gelieferten Basic-Interpreters eindeutig 
erkennen, daß dieser Rechner mehr als 
»kleiner« Bürogehilfe, als zur Unterhal¬ 
tung (spielen) gedacht ist. Es gibt z.B. 
keine Befehle zur Bildschirmsteuerung 
oder Tonerzeugung - dafür existiert eine 
Vielzahl von Funktionen zur Verwaltung 
von indizierten Dateien. Der Umgang mit 
solchen Dateien, den JETSAM-Funktionen 
des Mallard-Basic und der Unterschied 
zu anderen Datendateien, soll nun an¬ 
hand eines einfachen Beispieles erläutert 
% werden. 

Versetzen wir uns in die Rolle eines 
Großhändlers, der die Adressen, Um- 
f;; Sätze, Rechnungen usw. seiner Kunden 
mit Hilfe eines Computers verwalten 
möchte. Die einzelnen Daten werden 
als Datensätze in verschiedenen Da- 
^ teien gehalten, z.B. Adresse in einer 
Adressdatei; Umsätze, Rechnungen 
usw. in entsprechenden Dateien. Um 
die Datensätze eines Kunden in den 
verschiedenen Dateien auffinden zu 
können, wird eine fortlaufende Kun¬ 
dennummer vergeben, über die diese 
Sätze eindeutig angesprochen werden 
können. Ein solcher Datensatz setzt 
sich wiederum aus mehreren Datenfel¬ 
dern zusammen, z.B. könnte der Aul¬ 
bau eines Datensatzes der Adressdatei 
mit fünf Feldern folgendermaßen 
aussehen: 

Feld 1: Name 
Feld 2: Vorname 
Feld 3: Straße/Nr. 

Feld 4: Postleitzahl 
Feld 5: Ort 


Im folgenden soll die Adressdatei als 
Beispiel und zur Demonstration der 
Unterschiede zwischen den verschiede¬ 
nen Dateiarten dienen. 

Am einfachsten wäre das Speichern der 
Adressen in einer sequentiellen Datei. 
Dieser Dateityp unterliegt aber einigen 
Einschränkungen: 



Wie der Name schon sagt, werden hier 
die Datensätze der Reihe nach hinterein¬ 
ander in die Datei geschrieben und 
können nur in dieser Reihenfolge wie¬ 
der gelesen werden. Benötigt man z.B. 
nur den 10. Datensatz (Kundennum¬ 
mer 10), so müssen die neun vorher¬ 
gehenden Sätze überlesen w'erden - was 
natürlich Zeit in Anspruch nimmt. 
Noch gravierender ist die Tatsache, daß 
man in eine solche Datei nur schreiben 
oder nur aus ihr lesen kann. Änderun¬ 
gen sind also nicht ohne weiteres mög¬ 
lich - man muß die ganze Datei in den 
Speicher des Rechners einiesen, die Än¬ 


derung durchführen und das Ganze 
dann wieder zurückschreiben. Dies hat 
zur Folge, daß die max. Größe unserer 
Adressdatei und damit die Anzahl der 
möglichen Kunden vom freien Speicher 
des Rechners abhängig ist. Andererseits 
befinden sich so alle Daten im Speicher 
des Rechners und der Zugriff auf einen 
Datensatz erfolgt wesentlich schneller 
als das Lesen von der Diskette. 


Kunden adressiert, er entspricht also 
der Kundennummer. Der zweite Index 
(1 bis 5) adressiert die einzelnen Daten¬ 
felder des Satzes (s.o.). 


name$=adressen$(kundennummer,1) 

vomameS^adressenSfkundennummerjZ) 


Hier nun schematisch die nötigen Ein¬ 
zelheiten für die Adressdatei: " 

Da die Größe der Datei durch den 
freien Speicherim Rechner begrenzt ist 
und das Programm zur Verwaltung der 
Adressen auch etwas Speicherplatz be¬ 
nötigt, legen wir die max. Anzahl von 
Kunden mit z.B. 200 fest. 

maxanz=200 

Die Adressen (Datensätze) werden im 
Speicher des Rechners meinem zweidi¬ 
mensionalen Zeichen kettenfeld ge¬ 
speichert, das entsprechend dimensio¬ 
niert wird: 

DIM adressen$(maxanz,5) 

Über den ersten Index (1 bis maxanz) 
wird der Datensatz des gewünschten 


ort$=adressen$(kundennummer,5) 

In einem Programm können nun alle 
nötigen Operationen (Eingeben, Än¬ 
dern, Löschen) durch entsprechende 
Indizierung der Datensätze und Daten¬ 
felder vorgenommen werden. 

Zum Speichern der Datei muß diese 
vorher eröffnet werden: 

OPEN ”0”, #1,"ADRESSEN.SEQ” 

Das "O” (OUTPUT) teilt Basic mit, daß 
die Datei ADRESSEN.SEQ geschrie¬ 
ben werden soll, wobei alle schon exi¬ 
stierenden Dateien mit dem gleichen 
Namen gelöscht werden. Mit der Datei¬ 
nummer #1 wird eine logische Verbin¬ 
dung zwischen der Datei und den Ein-/ 
Ausgabebefehlen hergestellt. Somit 
weiß Basic, wenn es z.B. den Befehl 


Basic-Dateiverwaltung einf 
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PRINT # 1,"Meier” bearbeitet, daß 
’Meier” in die Datei ADRESSEN.SEQ 
geschrieben werden soll. Hätten wir 
noch eine zweite Datei mit OPEN 
"O”, # 2,"TEXT” eröffnet, so würde 
mit PRINT #2,"Meier" der Text in 
diese Datei geschrieben. Basic erlaubt 
lür die Dateinummer eine Zahl von 1 
bis 3, es können also max. drei Dateien 
gleichzeitig bearbeitet werden. Diese 
Anzahl kann aber mit Hilfe des 
MEMORY-Befehls geändert werden, 
falls eine größere Anzahl gleichzeitig 
offener Dateien notwendig sein sollte. 

Das eigentliche Schreiben der Datensätze 
geschieht durch: 

FOR i=l to maxanz 
FOR j=l to 5 

PRINT # l,adressen$(i,j) 
NEXT 
NEXT 


Nachdem alle Daten geschrieben wor¬ 
den sind, muß die Datei mit 

CLOSE # 1 


wieder geschlossen werden. Geschieht 
dies nicht, so können Daten verloren 


ich mit Jetsam 
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gehen und die Datei kann nicht zum 
Lesen geöffnet werden. 

Zum Einlesen einer solchen Datei wird 
diese mit 

OPEN "I”, # 1,”ADRESSEN.SEQ" 

geöffnet. Das "I” steht hier für Eingabe 
(Input) und die Daten können durch 

FOR i=l to maxanz 
FOR j=l to 5 

IN PET #l,adressen$(i,j) 
NEXT 
NEXT 

gelesen werden. 

Danach wird die Datei ebenfalls mit 
CLOSE # 1 wieder geschlossen. 

Damit wären alle notwendigen Opera¬ 
tionen zur Realisierung der Adressdatei 
als sequentielle Datei vorhanden. Da 
wir uns aber in die Rolle eines Groß¬ 
händlers versetzt haben, werden die 
max. 200 Adressen, die auf diese Art ver¬ 
waltet werden können, nicht genügen. 

Diese Einschränkung läßt sich aber 
durch Verwendung von Direktzugriffs¬ 
dateien (engl. Random Access) um¬ 
gehen. Dieser Dateityp hat gegenüber 
der sequentiellen Datei den wesent¬ 
lichen Vorteil. daß die Daten in jeder 
beliebigen Reihenfolge geschrieben 
und gelesen werden können. Dadurch 
ist die Größe einer solchen Datei nur 
von der Kapazität des Speicherme¬ 
diums (Diskette, Festplatte) bzw. der 
max. Dateigröße, die das Betriebssy¬ 
stem des Rechners unterstützt, be¬ 
grenzt. Auch können Änderungen 
leicht vorgenommen werden - es wird 
nur die Adresse des betroffenen Kunden 
in den Speicher gelesen, geändert und 
wieder an die gleiche Stelle in die Datei 
zurückgeschrieben. Dies ist möglich, da 
in einer Direktzugriffsdatei die Daten 
völlig anders als in einer sequentiellen 
Datei gespeichert werden. Der Inhalt 
der sequentiellen Adressdatei könnte 
z.B. folgendes Aussehen haben: 

Meier 

Hans 

Im Eck 123 
4321 

Tünneskirchen 

Schmitd 

Rudolf 

Hinterm Mond 7-9 

4711 Dingsda 

Büchsenmacher 

Bimbo 

...usw. 

Die Datenfelder der Datensätze sind 
als Zeichen ketten unterschiedlicher 
Länge mit einem von Basic angefügten 
Zeilenende, das beim Lesen wieder als 
Trennzeichen der Felder dient, ge¬ 
schrieben worden. Daraus ergeben sich 
für die einzelnen Datensätze ebenfalls 
unterschiedliche Längen und man kann 
leicht erkennen, daß so ein direkter Zu¬ 
griff auf ein bestimmtes Datum nicht 
möglich ist. 


Dagegen haben die Datensätze in einer 
Direktzugriffsdatei eine feste Länge, die 
entsprechend der Größe der zu speichern¬ 
den Informationen festgelegt wird, so¬ 
wie eine Satznummer, über die die 
Sätze angesprochen werden. Die Größe 
der einzelnen Datenfelder eines solchen 
Satzes ist ebenfalls konstant - man muß 
sich vorher überlegen, wieviele Zeichen 
z.B. max. für den Namen eines Kunden 
benötigt werden. Aus der Summe der 
einzelnen Feldlängen ergibt sich dann 
die Gesamtlänge (Satzlänge) eines Da¬ 
tensatzes in Bytes. 


Für die Adressdatei könnte das so 
aussehen: 


Name: 

Vorname: 

Straße: 

PLZ: 

Ort: 


20 Zeichen 
15 Zeichen 
25 Zeichen 
4 Zeichen 
24 Zeichen 


Summe: 89 Zeichen (Bytes) 
satzlänge=89 


Um mit einer Direktzugriffsdatei ar¬ 
beiten zu können, muß diese ebenfalls 
erölfnet werden: 


OPEN ”R”, #1,"ADRESSEN.RA", 
satzlänge 


Hier zeigt das "R" an, daß die Adress¬ 
datei als Direktzugriffsdatei (Random 
Access) eröffnet werden soll. Ein weite¬ 
rer Unterschied zum Eröffnen einer 
sequentiellen Datei, ist die zusätzliche 
Angabe der Satzlänge von 89 Bytes hin¬ 
ter dem Dateinamen, die wir oben aus 
den benötigten Größen der Datenfelder 
errechnet hatten. Anhand dieser Größe 
und der Satznummer (s.u.) kann die 
Position des Datensatzes in der Datei 
von Basic berechnet werden. Wird diese 
Angabe weggelassen, so nimmt Basic 
eine Satzlänge von 128 Bytes an, was in 
diesem Fall eine Verschwendung von 
39 Bytes pro Adresse bedeuten würde. 
Es können aber auch Sätze mit mehr als 
128 Bytes Größe verarbeitet werden. 


Dazu muß allerdings auch die Größe 
des Zwischenspeichers (Satzbuffer), in 
dem ein Datensatz aus der Datei gele¬ 
sen bzw. aus dem in die Datei geschrie¬ 
ben wird, mit Hilfe des MEMORY- 
Befehls angepaßt werden, da Basic hier¬ 
für ebenfalls 128 Bytes vorsieht. 


I I 
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Beim Eröffnen einer Dircktzugriffs 
datei wird eine schon vorhandene Datei 
im Gegensatz zur sequentiellen Datei 
nicht gelöscht. Daher können Daten 
verändert oder hinzugefügt werden. Exi¬ 
stiert die Datei noch nicht, so entsteht 
eine neue, vorläufig leere Datei. 


Als nächstes muß die Struktur des Satz¬ 
puffers und somit die der Datensätze 
definiert werden, d.h. die Anzahl und 
Größen der einzelnen Datenfelder. 
Dies geschieht mit der FIELD-Anwei- 
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sung, wodurch die darin aufgeführten 
Feldvariablen dem Satzpuffer der Da¬ 
tei zugeordnet werden. Für die Adress- 
datei sieht das folgendermaßen aus: 

FIELD # 1,20 AS nameS, 

15 AS vornameS, 

25 AS straßeS, 

4 AS plzS, 

25 AS ort$ 

Bei den Feldvariablen handelt es sich 
immer um Zeichenkettenvariablen. Die 
Längenangaben n AS bestimmen die 
Größe der Felder in Bytes (Zeichen). 
Die Reihenfolge der Felder im Satzpuf¬ 
fer ist durch die Anordnung der Feld¬ 
variablen in der FIELD-Anweisung be¬ 
stimmt. Bei der obigen Struktur für die 
Adressdatei werden die ersten 20 Bytes 
durch die Zeichenkette nameS belegt, 
die nächsten 15 Bytes von vornameS 
usw. 


RSET nameS^’Meier” 

der Name rechtsbündig in das Feld ein¬ 
getragen, wobei das Feld von links mit 
Leerzeichen aufgefüllt wird. Schließ¬ 
lich werden mit 

MID$(nameS,10,3)= ,, Meier” 

nur die ersten drei Zeichen, also Mei, ab 
dem zehnten Byte in das Feld ge¬ 
speichert, wobei der restliche Inhalt un¬ 
verändert bleibt. 

In allen drei Fällen werden für die 
Feldvariablen zu lange Zeichenketten 
bei der Zuweisung auf die Größe der 
Feldvariablen gekürzt. 

Wird dagegen eine Zuweisung wie 

nameS=”Meier” 

oder 

INPUT nameS 

durchgeführt, so wird die Zugehörigkeit 
der Feldvariablen nameS zum Satzpuf- 


sprechen wieder den Datenfeldern 
nameS, vornameS, usw. 

Das Füllen des Satzpuffers mit den in 
adresse$() stehenden Daten geschieht 
dann mit den Befehlen 

LSET nameS=adress$(l) 

LSET vorname$ : =adressS(2) 

LSET straße$=adressS(3) 

LSET plz.S=adressS(4) 

LSET ort$=adress$(5) 

Nun kann die in dem Satzpuffer ent¬ 
haltene Adresse als Datensatz in die 
Direktzugriffsdatei geschrieben wer¬ 
den. Dafür ist der PUT-Befehl zustän¬ 
dig, der auf zwei verschiedene Weisen 
angewendet werden kann. Mit 

PUT # 1 

werden die Datensätze, wie in einer 
sequentiellen Datei, hintereinander ge¬ 
schrieben. Nach jedem PUT # 1 wird 
die Satznummer automatisch um eins 
erhöht und steht somit auf dem näch¬ 
sten zu schreibenden/lesenden Da¬ 
tensatz. Direkt nach dem Eröffnen der 
Datei wären das die Sätze 1.2,3 usw. Hat 



Bevor man nun einen Datensatz in eine 
Direktzugriffsdatei schreiben kann, 
muß der Satzpuffer mit den zu schrei¬ 
benden Werten durch Zuweisungen an 
die Feldvariablen gefüllt werden. 

Dazu stehen drei verschiedene Zuwei¬ 
sungsarten zur Verfügung, deren Wir¬ 
kungsweise anhand der Feldvariablen 
nameS gezeigt wird: 

LSET name$=”Meier” 

Mit dieser Zuweisung wird der Name 
Meier linksbündig in die Feldvariable 
name$ geschrieben und die restlichen 
im Feld unbenutzten Bytes mit Leer¬ 
zeichen aufgefüllt. Entsprechend wird 
durch 


fer der Direktzugriffsdatei aufgehoben 
und sie kann als normale Zeichenkette 
weiter verwendet werden. 

Daher ist es ratsam, die zu speichern¬ 
den Daten zur Manipulation (Eingaben, 
Änderungen,...) in normalen Variablen 
zu halten und deren endgültigen Inhalt 
erst zum Speichern den entsprechen¬ 
den Feldvariablen zuzuweisen. Dazu 
bietet sich das, von der sequentiellen 
Adressdatei schon bekannte, Zeichen¬ 
kettenfeld an, das jetzt aber nur noch 
eine, nämlich die gerade zu bear¬ 
beitende Adresse aufnehmen muß: 

DIM adresse$(5) 

Die fünf Elemente dieses Feldes ent- 


man aber schon z.B. den fünften Satz 
aus der Datei gelesen, so wären das die 
Sätze 6. 7, 8 etc. 

Mit der zweiten Form kann man dage¬ 
gen die Satznummer bestimmen, unter 
der der Datensatz gespeichert werden 
soll. Dies ist für unsere Adressdatei 
wichtig, da die Adressen der Kunden 
über die entsprechenden Kundennum¬ 
mern erreichbar sein sollen. Also neh¬ 
men wir einfach die Kundennummer 
als Satznummer, die bei Mallard-Basic 
im Bereich von 1 bis 32767 liegen darf, 
was gegenüber den 200 Adressen im 
sequentiellen Modell in den meisten 
Fällen genügen dürfte. Der Speicherbe¬ 
fehl sieht dann so aus: 
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PUT # l,kundennummer 

Es sei noch erwähnt, daß vor jedem 
Schreiben eines Datensatzes der Satz- 
pufler mit den entsprechenden Daten 
(hier die Adressen) neu gefüllt werden 
muß! Anderenfalls wird bei jedem 
PUT-Befehl die gleiche Adresse unter 
der angegebenen Kundennummer ge¬ 
speichert. 

Für das Lesen eines Satzes in den Satz¬ 
puffer ist der GET-Befehl zuständig. 

Dieser Befehl kann ebenfalls in zwei 
Varianten angewandt werden, ohne 
oder mit Angabe der Satznummer. Er 
verhält sich genau wie der PUT-Befehl, 
mit dem Unterschied, daß die Daten ge¬ 
lesen werden und daß bei dem Versuch, 
einen noch nicht geschriebenen Da¬ 
tensatz zu lesen, ein Fehler entsteht. Für 
die Adressdatei ist wieder, wie beim 
Schreiben, die zweite Art notwendig: 

GET # l,kundennummer 

Nach diesem Befehl befindet sich die 
Adresse des gewünschten Kunden im 
Satzpuffer und der Inhalt der Datenfelder 
kann über die Feldvariablen ange¬ 
sprochen werden. Z.B. kann man mit 
dem Befehl 

PRINT name$,vorname$,... 

die Adresse auf den Bildschirm ausgeben 


oder ihren Inhalt wieder in das Zeichen¬ 
kettenfeld adress$() mit 

adress$(l)=name$ 

adress$(2)=vornameS 


adress$(5)=ort$ 

zu weiteren Manipulationen übertra¬ 
gen. Dort kann jetzt z.B. eine Adressän- 
derung vorgenommen werden und die 
neue Adresse wieder unter der gleichen 
Kundennummer in die Datei zurück¬ 
geschrieben werden. 

Wie sequentielle Dateien, müssen auch 
Direktzugriffsdateien nach Beendi¬ 
gung der Arbeit wieder mit CLOSE 
# Dateinummer geschlossen werden. 
Mit Hilfe der Direktzugriffsdatei konnte, 
gegenüber der sequentiellen Datei, die 
Anzahl der zu verwaltenden Kunden 
erheblich gesteigert werden, ln beiden 
Fällen können wir die Adressen der 
Kunden aber nur über die Kunden¬ 
nummer ansprechen. Möchten wir da¬ 
gegen wissen, welche Kunden z.B. in ei¬ 
ner bestimmten Stadt bzw. in einem 
bestimmten Postleitzahlengebiet seß¬ 
haft sind, so müssen alle Adressen auf 
die Erfüllung der Suchbedingungen 
untersucht werden. Ebenso proble¬ 
matisch ist die Erstellung einer Adress- 
liste, die alphabetisch nach dem Na¬ 
men sortiert ist. 

Zu diesem Zweck wäre ein alphabeti¬ 


sches Verzeichnis der Namen nützlich, 
in dem diese und die dazugehörigen 
Satznummern, unter der die vollstän¬ 
dige Adresse in der Direktzugriffsdatei 
gespeichert ist, enthalten sind. Dateien, 
die mit Hilfe solcher Index-Tabellen 
verwaltet werden, nennen sich indizierte 
oder indexsequentielle Dateien. 

Dabei handelt es sich um Direktzu¬ 
griffsdateien, zu denen zusätzlich eine 
Indexdatei angelegt wird. Beim Spei¬ 
chern eines neuen Datensatzes in die 
Direktzugriffsdatei wird ein Schlüssel¬ 
begriffangegeben, der von der Dateiver¬ 
waltung zusammen mit der Satznum¬ 
mer des Datensatzes in die Indexdatei 
entspechend einsortiert wird. Zum 
Suchen eines Datensatzes kann dann 
dieser Schlüsselbegriff wieder verwen¬ 
det werden und falls der Schlüssel im 
Index gefunden wurde, mit Hilfe der 
Satznummer, der vollständige Da¬ 
tensatz wieder gelesen werden. Die 
Adressdatei, mit Hilfe der indizierten 
Dateiverwaltung, könnte so aussehen, 
wobei die Satznummer wieder der Kun¬ 
dennummer entspricht: 

Direktzugriffsdatei: 

Satz 1: Meier 

Hans 

Im Eck 123 

4321 

Tünneskirchen 
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Satz 2: Schmidt 
Rudolf 

Hinterm Mond 7-9 

4711 

Dingsda 

Satz 3: Büchsenmacher 
Bimbo 
Holzweg 1 
4545 
Irgendwo 

Indexdatei mit sortierten Namen: 



Büchsenmacher, Satz 3 
Meier, Satz 1 
Schmidt, Satz 2 

oder Indexdatei mit sortierter PLZ: 

4321, Satz 1 
4545, Satz 3 
4711, Satz 2 


Die meisten Basic-Dialekte, die bei 
Heim- und Personalcomputern zu fin¬ 
den sind, unterstützen die indizierte 
Dateiverwaltung leider nicht. In dem 
Fall bleibt es dem Programmierer über¬ 
lassen, diese zu verwirklichen. Mallard- 
Basic bietet dagegen mit den JETSAM- 
Funktionen sehr komfortable Werk¬ 
zeuge zum Arbeiten mit diesem Datei¬ 
typ. 


Im Gegensatz zur DirektzugrilTsdatei 
wird eine indizierte Datei beim Öffnen 
nicht automatisch erstellt. Vor der er¬ 
sten Benutzung muß diese erst mit 
dem CREATE-Befehl eingerichtet und 
initialisiert werden. Für unsere Adress- 
datei geschieht das durch 


CREATE # 1,”ADRESSEN.DAT” 
”ADRESSEN.INX” 

2,satzlänge 

Die Dateinummer # 1 und ihre Be¬ 
deutung ist ja schon von der sequentiel¬ 
len und der Direktzugriffsdatei be¬ 
kannt. 

Der Dateiname ADRESSEN.DAT be¬ 
zeichnet die Datendatei, in der die voll¬ 
ständigen Datensätze (Adressen) der 
Kunden gespeichert werden. Dabei 
handelt es sich um eine ganz normale 
Direktzugriffsdatei, mit den oben schon 
beschriebenen Eigenschaften. 

Der neu hinzugekommene zweite Da¬ 
teiname ADRESSEN.INX bezeichnet 
die von Jetsam einzurichtende In¬ 
dexdatei, in der die Schlüsselwörter mit 
den dazugehörigen Satznummern der 
Datendatei von Jetsam eingetragen und 
verwaltet werden. Für diese Datei be¬ 
nötigt Jetsam mindestens einen Zwi¬ 
schenspeicher (engl. Buffer), über den 
es die zur Verwaltung des Index nötigen 
Operationen abwickeln kann. Bei erst¬ 


maligem Laden von Basic existiert die¬ 
ser noch nicht, da er einen Speicher¬ 
platz von 128 Bytes belegt, der vom ver¬ 
fügbaren Platz für Programme abgezo¬ 
gen wird und bei Nichtverwendung von 
Jetsam unnötig ist. Vor der ersten Ver¬ 
wendung von Jetsam in einem Pro¬ 
gramm muß dieser Zwischenspeicher 
mit 

BUFFERS anzahl 

eingerichtet werden, anzahl kann im Be¬ 
reich von 0 bis 255 liegen und gibt an, 
wieviele Index-Puffer (jeder 128 Bytes 
groß) reserviert werden sollen. Je mehr 
Buffer Jetsam zur Verfügung gestellt 
werden, umso schneller erfolgt die Be¬ 
arbeitung der indizierten Dateien. 

Neu ist auch der Parameter 2, der die 
Datei für andere Benutzer in einem 
Mehrbenutzersystem sperrt. Auf dem 
Joyce ist dieser Parameter uninteres¬ 
sant, muß aber aus Kompatibilitäts¬ 
gründen angegeben werden. Dieser 
Sperr-Parameter tritt auch in anderen 
Jetsam-Funktioncn auf, wo dann eben¬ 
falls konstante Werte benutzt werden. 

Die Bedeutung der satzlänge ist eben¬ 
falls schon bekannt - sie gibt wieder die 
Länge eines Datensatzes in der Daten¬ 
datei an. Allerdings benötigt Jetsam in 
jedem Satz zur Verwaltung der Daten¬ 
datei die ersten zwei Bytes und reser¬ 
viert sich diese; dem Benutzer stehen sie 
also nicht zur Verfügung. Da wir für 
eine Adresse 89 Bytes benötigen, muß 
im Gegensatz zu normalen Direktzu¬ 
griffsdateien, die Satzlänge um zwei er¬ 
höht werden: 

satzlänge=89+2 

Wenn vom CREATE-Befehl beide Da¬ 
teien erfolgreich erzeugt wurden, steht 
die indizierte Datei zur weiteren Bear¬ 
beitung bereit, man braucht sie also 
nicht mehr, wie folgend beschrieben, 
eröffnen. 

Existiert dagegen die Adressdatei 
schon, dann wird mit 

OPEN ”K”, # I,”ADRESSEN.DAT” 
"ADRESSEN.INX 
2,satzlänge 

die indizierte Datei zur Bearbeitung 
eröffnet. 

Die Parameter ab der Dateinummer 
#1 entsprechen denen des CREATE- 
Befehls. Der erste Parameter ”K” zeigt 
Basic, daß eine existierende, indizierte 
Datei geöffnet werden soll. 

Nach dem CREATE- bzw. dem OPEN- 
Befehl. muß nun wieder, wie bei der ein¬ 
fachen Direktzugriffsdatei, die Struktur 
des Satzpuffers definiert werden. Dabei 
muß die Summe der Feldlängen um 
zwei Bytes kleiner sein als die bei 
CREATE/OPEN angegebene Satz¬ 
länge, da Jetsam, wie erwähnt, zwei 
Bytes für sich in Anspruch nimmt. Die 


FIELD-Anweisung entspricht exakt der 
für die Direktzugriffsdatei benutzten: 

FIELD # 1,20 AS name$, 

15 AS vornameS, 

25 AS straßeS, 

4 AS plz$, 

25 AS ort$ 

Ebenfalls benutzen wir zur Manipu¬ 
lation einer Adresse wieder das 
Zeichenkettenfeld adress$(), um zu ver¬ 
meiden, daß durch eine falsche Zuwei¬ 
sung die Zugehörigkeit einer Feldvaria¬ 
blen zum Satzpuffer aufgehoben wird. 

Um nun mit indizierten Dateien sinn¬ 
voll arbeiten zu können, muß überlegt 
werden, nach welchen Kriterien die ge¬ 
speicherten Informationen wieder ge¬ 
sucht oder Listen erstellt werden sollen. 

Innerhalb der Indexdatei kann Jetsam 
bis zu acht verschiedene Indextabellen 
verwalten. D.h. für unsere Adressdatei, 
daß wir gleichzeitig ein sortiertes Ver¬ 
zeichnis der Namen undeines der Post¬ 
leitzahlen benutzen können. Theore¬ 
tisch könnten für alle fünf Datenfelder 
der Adressdatei entsprechende In¬ 
dextabellen angelegt werden, was aber 
wenig Sinn ergibt, da dadurch mehr 
Speicherplatz verbraucht wird und wir 
kaum nach irgendwelchen Straßen 
suchen werden. 

Ein Problem stellt sich durch die von 
uns vorgeschriebene und zu jeder 
Adresse gehörende Kundennummer 
ein. In der sequentiellen Datei ent¬ 
sprach diese dem Index im Zeichenket¬ 
tenfeld adressSO und in der Direktzu¬ 
griffsdatei der Satznummer des Da¬ 
tensatzes mit der Adresse des Kunden. 
Die Daten eines Kunden wurden also 
direkt über die Kundennummer ange¬ 
sprochen. Dies ist jetzt bei der Verwen¬ 
dung einer indizierten Datei nicht mehr 
möglich, da Jetsam selbständig die 
Satznummer bestimmt, unter der ein 
Datensatz in die Datei geschrieben 
wird. Dadurch ergibt sich die Notwen¬ 
digkeit, eine Indextabelle für die Kun¬ 
dennummer einzusetzen. 

Für unsere Adressdatei benutzen wir 
also drei Indextabellen; eine für die 
Kundennummer (Tabelle 0). eine für 
die Namen (Tabelle 1) und eine für die 
Postleitzahlen (Tabelle 2). Jede ein¬ 
zelne der acht möglichen Tabellen wird 
in den Jetsam-Funktionen durch ihre 
Nummer selektiert, die zwischen 0 und 
7 liegen darf. Um später bei der Verwen¬ 
dung der Jetsam-Funktionen den Para¬ 
meter, der die einzelnen Indextabellen 
selektiert, besser erkennen zu können, 
verwenden wir die Konstanten kin- 
dex^O für die Tabelle der Kundennum¬ 
mern. nindex=l für die der Namen und 
pindex=2 für die der Postleitzahlen. 

Des weiteren muß überlegt werden, ob 
in einem Index ein Schlüsselwert nur 
einmal oder mehrfach Vorkommen 
darf. Bei der Namen- und Postleitzah¬ 
lentabelle ist ein mehrfaches Auftreten 
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eines Wertes sicher sinnvoll, da es, wie 
allgemein bekannt, unzählige Meiers, 
Müllers usw. gibt. Ebenfalls ist nicht 
auszuschließen, daß mehrere Kunden 
in derselben Stadt residieren. Dagegen 
darf eine Kundennummer nur einmal 
vorhanden sein, da sonst die Daten aus 
den einzelnen Dateien (s. ganz oben) 
nicht eindeutig einander zuzuordnen 
sind. 

Deshalb bietet Jetsam die Möglichkeit, 
für jede einzelne Tabelle ein einfaches 
oder mehrfaches Vorkommen eines 
Schlüsselwertes zu erlauben. Beim Er¬ 
zeugen einer indizierten Datei mit 
CREATE, wird für alle acht möglichen 
Indcxtabellen automatisch ein mehr¬ 
faches Auftreten eines Wertes erlaubt. 
Soll aber in bestimmten Tabellen ein 
Werl nur einmalig Vorkommen dürfen, 
so muß diese Eigenschaft den betroffe¬ 
nen Tabellen mitgeteilt werden. Die 
Jetsam-Funktion dafür ist 

ergebnis=RANKSPEC(dateinumnier, 

Tabellennummer, 

attribut) 

Mit attribut=0 wird ein Schlüsselwert 
mehrfach in der entsprechenden In¬ 
dextabelle erlaubt. Dies kann man sich 
ersparen, da diese Einstellung auto¬ 
matisch angenommen wird. Mit attri- 
but=l darfein Wert in der Tabelle nur 
einmalig enthalten sein. Als Ergebnis 
liefert die Funktion den Wert Null, 
wenn kein Fehler aufgetreten ist. 

Diese Einstellungen müssen (wenn nötig) 
bei der Erstellung einer indizierten Da¬ 
tei mit CREATE vorgenommen wer¬ 
den. bevor Daten gespeichert werden 
und bleiben für die erzeugte Datei bis 
zu ihrem Ende durch Löschen aktiv, da 
diese Information in der Indexdatei 
mitgespeichert wird und nach einem 
Wiedereröffnen mit OPEN in Kraft 
tritt. 

Um also in der Adressdatei kein mehr¬ 
faches Vorkommen einer Kundennum¬ 
mer zu erlauben, muß diese nach dem 
CREATE-Befehl mit 

ergebnis= R AN KSPEC( # 1 ,kindex, 1) 

Jetsam mitgeteilt werden. 


schlüsselS—STRS(kundenntiimner) 


Nach diesen ganzen Vorüberlegungen 
und Maßnahmen können nun endlich 
Adressen in die indizierte Datei ein¬ 
getragen werden. 

Wie bei der normalen Direktzugriffs¬ 
datei, müssen dazu die Adressdaten erst 
in den Satzpuffer übertragen werden: 


Diese Form hat aber den Nachteil, daß 
für jede Ziffer der Zahl ein Byte benötigt 
wird, während in der internen Darstel¬ 
lung von Basic nur zwei Bytes nötig sind, 
um Zahlen im Bereich von -32768 bis 
+32767 darzustellen. 


LSET name$=adress$(l) 

LSET vorname$=adress$(2) 

usw. 

Das Speichern des Datensatzes ge¬ 
schieht jetzt nicht mehr mit dem PÜt- 
Befehl, sondern durch die Jetsam- 
Funktion ADDREC. Diese Funktion 
schreibt den Satz, unter einer von 
Jetsam vergebenen Satznummer, in die 
Datendatei und sortiert gleichzeitig den 
angegebenen Schlüsselwert in die ange¬ 
gebene Indextabelle ein. Hier der voll¬ 
ständige Aufruf der Funktion: 

ergebnis=ADDREC(Dateinummer, 

Sperrparameter, 

Tabellennummer, 

Schlüsselwert) 

Die Bedeutung der Datei- und Tabel¬ 
lennummer dürfte aus obigen Ausfüh¬ 
rungen schon bekannt sein. Wie bei 
CREATE und OPEN, muß der Sperr¬ 
parameter wieder aus Kompatibilitäts¬ 
gründen zur Mehrbenutzerversion an¬ 
gegeben werden und hat ebenfalls den 
Wert 2. 

Beim Schlüsselwert handelt es sich im¬ 
mer um eine Zeichenkette mit einer 
maximalen Länge von 31 Zeichen. Für 
die Adressdatei nehmen wir als Schlüs¬ 
selwort die Kundennummer und als Ta¬ 
bellennummer die Konstante kindex 
(Tabelle 0, in der ein Wert nur einmal 
existieren darf). 

Da Basic Zahlen intern nicht als Zif¬ 
fernfolge, sondern in einer, für Com¬ 
puter geeigneteren Form darstellt, muß 
die Kundennummer vor Verwendung 
als Schlüsselwert einer Jetsam-Funktion 
in eine Zeichenkette um gewandelt wer¬ 
den. Dazu gibt es einmal die STRS- 
Funktion, die eine Zahl von der inter¬ 
nen Darstellung wieder in eine Ziffern¬ 
folge umwandelt: 


Außerdem entsteht in der Indextabelle 
nicht die eiwartete, aufsteigende Reihen¬ 
folge der Kundennummern 1,2,3,..., 10, 
usw., da bei Zeichenketten ein Vergleich 
auf kleiner-, gleich und größer als, an¬ 
ders als bei Zahlen ausgeführt wird In der 
Indextabelle würde sich deshalb folgen¬ 
de Reihenfolge einstellen: 1, 10, 2, 3,... 


: : 




Deshalb bietet Mallard-Basic noch die 
zwei Funktionen MKIKS und MKUKS 
an, die beide aus der internen Darstel¬ 
lung einer Zahl eine zwei Bytes lange 
Zeichenkette erzeugen, die als Schlüs¬ 
selwert für Jetsam-Funktionen verwen¬ 
det werden kann. Mit MKIKS können 
dabei ganze Zahlen im Bereich von 
-32768 bis +32767 und mit MKUKS 
ganze Zahlen in einem Bereich von 0 
bis 65535 umgewandelt werden. Diese so 
erzeugten Zeichenketten lassen sich 
dann mit den Funktionen CVIK und 
CVUK wieder in die, für Basic zum 
Rechnen nötige, interne Darstellung zu¬ 
rückwandeln. Dies ist auch nötig, wenn 
man den Wert z.B. drucken möchte. Die 
Ausgabe der Zeichenkette selbst er¬ 
zeugt nur wirre Zeichen auf dem 
Papier! 

Der Belehl zum Hinzufügen eines 
neuen Kunden sieht also so aus: 

ergebnis=ADI)REC(# I, 

2 , 

kindex, 

MKUKS 

(kundennr.)) 

Wird als Ergebnis der Wert 0 zurückge¬ 
geben, so konnte die Adresse erfolg¬ 
reich in die Datendatei, und die Kun¬ 
dennummer in die Tabelle der Index¬ 
datei, eingetragen werden. Wenn ver¬ 
sucht wird, eine Adresse unter einer 
in der Tabelle schon existierenden 
Kundennummer hinzuzufügen, was bei 
der Erstellung der Datei mit RANKSPEC 









V I DEO-1OOO 

Digitizer zum Digitalisieren von Videobildern 


* Auflösung 640 x 200 

* 2,4 oder 16 Farben 

* incl. Kurzfilm 



Demodisk 3"g. Einsendung von 15,- 
Schein oder V-Scheck. Info gratis 
Versand p.NN. Computertyp angeben! 

Ing. Büro M. Fricke 
Neue Sfr. 13 1000 Berlin 37 
030/801 56 52 


CPC 464/664/6128 

i 





Disc-Copy 

File-Copy 

Disc-Monitor 

Multicopy 


Unterrichts¬ 

medien 

Hoppius 

Bannstr. 27 

6330 Wetzlar 


Telefon: 

06441/42298 



Sonderheft 2 '86 


cpc 117 


Joyce 
















































Joyce 


iiHinni 


iitinii 


llll 


ll llll III 


inimmiti 








»verboten« wurde, dann wird in ergeb- 
nis der Fehlercode 116 zurückgegeben 
und die Adresse nicht gespeichert. 

In beiden Fällen wird von Jetsam eine 
aktuelle Position festgehalten. Diese 
Position bestimmt bei einigen Jetsam- 
Funktionen, auf welchen Datensatz, 
welcher Indextabelle und welchem 
Schlüsselwert sich die Funktion aus¬ 
wirkt. Einige Funktionen verlangen 
diese Position unbedingt als Eingabe¬ 
parameter, bei anderen kann sie optio¬ 
nal angegeben werden. Die Position 
setzt sich aus den drei Werten Tabellen¬ 
nummer, Schlüsselwert und Satznum¬ 
mer zusammen. Im Falle des Erfolges 
bei ADDREC zeigt diese auf die gerade 
hinzugefügte Adresse, bei Fehler 116 auf 
die schon existierende. Bei anderen 
Funktionen kann die Position nach 
Auftreten von Fehlern auch Undefiniert 
sein. Um die aktuelle Position für Pro¬ 
gramme verfügbar zu machen, bietet 
Jetsam folgende drei Funktionen: 

Tabellennr.=FETCHRANK(dateinr.) 

Schlüssel$=FETCHKEY$(dateinr.) 

Satznr.=FETCHREC(dateinr.) 


Tabelle pindex stellt uns nun wieder vor 
ein Problem. Wenn man davon ausgeht 
daß die Postleitzahl immer mit vier Zif¬ 
fern in adress$(4) eingegeben wird, 
dann erhält man bei Verwendung die¬ 
ser Zeichenkette als Schlüsselwert eine 
numerisch richtig aufsteigend sortierte 
Indextabelle, anderenfalls treten die 
gleichen Probleme, wie bei der Kunden¬ 
nummer als Schlüssel wert, auf (s.o.). 
Alternativ kann die in adress$(4) als 
Zeichenkette dargestellte Postleitzahl 
vor der Verwendung der MKIKS bzw. 
MKUKS durch Anwendung der VAL- 
Funktion in die interne Darstellung ei¬ 
ner Zahl gebracht werden. In dem Fall, 
muß die durch FETCHKEYS erhaltene 
Zeichenkette des Schlüsselwertes mit 
CVIK/CVUK wieder in eine Zahl und, 
wenn nötig, mit der STRS-Funktion 
wieder in eine normale Zeichenkette 
zurückgewandelt werden. Der Einfach¬ 
heit halber entschieden wir uns für die 
erste Möglichkeit, also 

ergebnis=ADDKE Y( # 1,0,pindex, 

adress$(4),satznr.) 

Beim Einsortieren dieser beiden Schlüs¬ 
selwerte kann von der ADDKEY-Funk- 
tion als Ergebnis nur der Wert Null zu¬ 
rückgegeben werden, da in den ent¬ 
sprechenden Indextabellen ein mehr¬ 
faches Auftreten eines Schlüssels zuge¬ 
lassen ist. 


Nun haben wir aber erst die gleiche Mög¬ 
lichkeit zum Lesen der Adresse aus der 
indizierten Datei, wie auch bei der 
sequentiellen und der einfachen Direkt¬ 
zugriffsdatei - die Kundennummer. 
Deshalb gibt es bei Jetsam die ADDKEY- 
Funktion, die das Hinzufügen weiterer 
Schlüssel für einen, in der Datendatei 
bereits gespeicherten, Satz erlaubt: 

#: 

ergebnis—ADDKF.Y( Dateinummer, 
Sperrparameter, 
Tabellennummer, 
Schlüsselwert, 
Satznummer) 


Damit wären für das Einträgen neuer 
Adressen und ihrer Schlüsselwerte in 
die indizierte Datei alle notwendigen 
Schritte erläutert - wenden wir uns nun 
dem Wiederauffinden der gespeicherten 
Informationen zu. 

Als erstes möchten wir dazu wieder die 
Kundennummer benutzen. Mit Hilfe 
der Funktion 

ergebnis=SEEKKEY(dateinummer, 

Sperrparameter, 

Tabellennummer, 

Schlüsselwert) 


Hierbei muß für den Sperrparameter 
der Wert 0 angegeben werden. Für das 
Ergebnis der Funktion gilt das gleiche 
wie bei ADDREC, jedoch mit dem Un¬ 
terschied, daß der betroffene Datensatz 
schon existiert. 

Im Falle, daß bei ADDREC kein Fehler 
auftrat, können nun der Name und die 
Postleitzahl in die entsprechenden In¬ 
dextabellen einsortiert werden. Da die 
ADDKEY-Funktion dazu die Satznum¬ 
mer wissen muß, unter der die Adresse 
in der Datendatei zu finden ist, müssen 
wir uns diesen mit 

satznr.=FETCHREC(# 1) 

von Jetsam geben lassen. 

Das Einsortieren des Namens geschieht 
dann mit: 

ergebnis=ADDKEY(# 1,0,nindex, 

adress$(l),satznr.) 

Das Einsortieren der Postleitzahl in die 


können wir Jetsam veranlassen, in einer 
bestimmten Indextabelle nach einem 
Schlüsselwert zu suchen. Für den 
Sperrparameter muß, wie auch bei allen 
folgenden Suchfunktionen, der Wert 0 
eingesetzt werden. Also: 

ergebnis=SEEKKEY( # 1.0,kindex, 
MKUKS 
(kundennr.)) 

Ist ergebnis=0, dann wurde die Kun¬ 
dennummer in der Tabelle gefunden 
und die aktuelle Position (s.o.) ent¬ 
sprechend eingestellt. Nun kann die 
Adresse mit GET # 1 in den Satzpuffer 
gelesen und über die Feldvariablen ange¬ 
sprochen werden. Bei GET ist die An¬ 
gabe einer Satznummer nicht not¬ 
wendig, da Jetsam diese, anhand der in 
der Indextabelle gespeicherten Infor¬ 
mation, schon kennt. 

Wird von der Funktion der Wert 103 zu¬ 
rückgegeben, dann existiert in der Ta¬ 


belle weder die gesuchte noch eine 
größere Kundennummer. Auch befinden 
sich in allen anderen Indextabellen mit 
höheren Tabellennummern keine 
Schlüsselwerte. 

Der Wert 105 zeigt ebenfalls an, daß die 
Kundennummer in der Tabelle nicht ge¬ 
funden wurde. Es können aber 

1. in der Tabelle noch größere Kunden¬ 
nummern vorhanden sein. 

oder 

2. in Tabellen mit höheren Tabellen- 
nummem weitere Schlüsselwerte vor¬ 
handen sein. 

Das Suchen einer besti mmten Kunden¬ 
adresse nach dem Namen oder der Post¬ 
leitzahl stellt sich dagegen als etwas 
schwieriger heraus, da in den ent¬ 
sprechenden Indextabellen ein Schlüs¬ 
selwert mehrfach auftreten darf. Haben 
wir z.B. mehrere Kunden mit dem Na¬ 
men Meier, so wird von Jetsam nach 
Aufruf der SEEKKEY-Funktion mit 

ergebnis=SEEKKEY(# l,0,nindex, 
"Meier”) 

die aktuelle Position auf den ersten 
Meier lautenden Eintrag gestellt. Han¬ 
delt es sich bei dieser Kundenadresse 
nicht um die gesuchte, so müssen ir¬ 
gendwie alle anderen noch evtl, vorhan¬ 
denen Meiers nach der gewünschten 
Adresse durchsucht werden. Man müßte 
nun zum nächsten Schlüssel in der In¬ 
dextabelle gehen und feststellen, ob die¬ 
ser den gleichen Wert, also Meier, hat. 

Wenn ja, kann nach Laden der dazuge¬ 
hörigen Adresse mit GET und Un¬ 
tersuchung des Vornamens oder durch 
Anzeige auf dem Bildschirm entschie¬ 
den werden, ob es sich um den gesuch¬ 
ten Kunden handelt oder nicht. Dazu 
bietet Jetsam die zwei Funktionen 
SEEKNEXT (suche Nachfolger) und 
SEEKPREV (suche Vorgänger) zum 
»Durchblättern« der Indextabellcn an. 

Die Syntax lautet für beide 

ergebnis=SEEK????(Dateinummer, 

Sperrparameter) 

oder 

ergebnis=SEEK????(Dateinummer, 

Sperrparameter, 

Tabellennummer, 

Schlüsselwert, 

Satznummer) 

(für die Fragezeichen ist entsprechend 
NEXT oder PREV einzusetzen) 

In der ersten Form wird von der augen¬ 
blicklich aktuellen Position, die sich 
z.B. nach der ADDREC-, ADDKEY- 
oder einer Suchfunktion ergeben hat, 
ausgegangen. Bei der zweiten Form 
wird die Position, von der aus Jetsam 
gehen soll, durch die drei ParameterTa- 
bellennummer, Schlüsselwert und Satz¬ 
nummer bestimmt. So können Such- 
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funktionen, die diese Form erlauben, 
immer von einem durch den Benutzer 
bestimmten Datum aus gestartet wer¬ 
den, wenn die Position durch die 
FETCH????-Funktionen abgefragt wor¬ 
den war. 

Die in ergebnis zurückgegebenen Werte 
sollen nun anhand der SEEKNEXT- 
Funktion erläutert werden. Wird als Er¬ 
gebnis der Wert 0 zurückgegeben, so hat 
der neue gefundene Schlüssel den 
gleichen Wert, wie der vorhergehende, 
d.h. wir haben es wieder mit einem 
Meier zu tun und müssen entsprechend 
handeln (s.o.) 

Ist dagegen ergebnis=101, so hat der ge¬ 
fundene Schlüssel einen anderen Wert, 
z.B. Müller, wir haben also den gesuch¬ 
ten Meier nicht gefunden. 

Personal- Computer 

Textsntem 

Handbuch 




C«Schneider 
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Wird der Wert 102 ausgegeben, so befin¬ 
det sich der gefundene Schlüssel in der 
nächsten, mit Werten versehenen, In¬ 
dextabelle, in unserem Fall handelt es 
sich um eine Postleitzahl in der Tabelle 
2 pindex. 

In allen drei Fällen wird die aktuelle 
Position auf den entsprechenden Ein- 
trag gestellt, d.h. mit GET wird die zum 
gefundenen Schlüsselwert gehörende 
Adresse geladen. 

Erhält man als Ergebnis den Wert 103, 
so war der vor dem Funktionsaufruf 
durch die aktuelle Position adressierte 
Schlüssel der letzte Eintrag der letzten 
benutzten Tabelle, in unserem Fall die 
letzte Postleitzahl in der Postleitzah¬ 
lentabelle, oder anders ausgedrückt, 
der letzte Schlüssel der gesamten Index¬ 
datei. Jetsam kann nun keine neue 
aktuelle Position bestimmen und diese 
ist daher Undefiniert. 

Der Wert 105 zeigt an, daß bei der Ver¬ 
wendung der zweiten Form eine falsche 
Position angegeben wurde. Das be¬ 
deutet, daß in der Tabelle kein Schlüs¬ 
selwert mit dieser Satznummer exi¬ 
stiert. In dem Fall wird von Jetsam die 
aktuelle Position aut den Schlüssel in 
der Indextabelle gesetzt, der unmittel¬ 
bar dem gewünschten folgen würde. Ex¬ 
istiert dieser auch nicht, d.h. die neue 
Position wäre hinter dem letzten Schlüs¬ 
sel in der Indexdatei, so ist die aktuelle 
Position unbestimmt. 


Schließlich kann auf dem Joyce noch 

der Wert 115 zurückgegeben werden, 
der anzeigt, daß die Funktion nicht aus¬ 
geführt werden kann, da die aktuelle 
Position Undefiniert ist und im Funk¬ 
tionsaufruf auch keine Positionsangabe 
gemacht wurde. 

Die Ergebnis werte der SEEKPREV- 
Funktion entsprechen den oben aufge¬ 
führten, allerdings mit dem Unter¬ 
schied, daß mit 102 der Übergang zur 
vorhergehenden Indextabelle und mit 
103 der erste Schlüssel in der ersten In¬ 
dextabelle angezeigt wird. 

Wie zu sehen ist, kann mit diesen bei¬ 
den Funktionen bequem in der gesamten 
Indexdatei, in einer Tabelle oder in ei¬ 
nem Teilbereich einer solchen geblät¬ 
tert werden. Sollen z.B. alle Adressen 
der Kunden Namens Meier ausgedruckt 
werden, so braucht man nur den ersten 
mit SEEKKEY suchen, mit GET laden 
und ausdrucken. Danach fährt man mit 
der SEEKNEXT-Funktion so lange 
fort, bis sich als Ergebnis ein Wert 
größer 0 einstellt, der mit 101 einen 
neuen Schlüssclwert, mit 102 das Ver¬ 
lassen der Namen-Indextabelle oder 
mit 103 das Ende der Indexdatei 
anzeigt. 


Beispiel: 

ergebnis=SEEKKEY( # l,0,nindex, 
”Meier”) 

WHILE ergebnis=0 
GET # 1 
drucken 

ergebnis=SEEKNEXT( # 1,0) 
WEND ' 

Sollen dagegen alle Adressen von Meier 
bis Schmidt gedruckt werden, ist folgen¬ 
des Programm notwendig: 

ergebnis=SEEKKE Y( # l,0,nindex, 
"Meier”) 

WHILE ergebnis < 102 AND 
FETCHKEY$(#1) < =”Schmidt” 

GET # 1 
drucken 

ergebnis=SEEKNEXT( 1,0) 
WEND 

Wollen wir uns z.B. alle benutzten Kun¬ 
dennummern ansehen, dann können wir 
die SEEKKEY-Funktion zum Einstel¬ 
len der aktuellen Position auf den er¬ 
sten Schlüssel wert der Indextabelle 
nicht verwenden, da wir möglicher¬ 
weise die momentan kleinste Kunden¬ 
nummer nicht wissen. Deshalb kann 
dies mit der SEEKRANK-Funktion 
vorgenommen werden: 

ergebnis=SEEKRANK(dateinummer, 

Sperrparameter, 

Tabellennummer) 

Wenn ergebnis=0 ist, konnte die 
aktuelle Position auf den ersten Schlüs¬ 
selwert in der angegebenen Tabelle ein¬ 
gestellt werden. 

Bei ergebnis=102 ist in der geforderten 
Tabelle kein Schlüssel vorhanden und 


die Position wird auf den ersten Eintrag 
der nächsten benutzten Tabelle gesetzt. 
Existiert keine solche, dann wird ergeb¬ 
nislos ausgegeben. 

Das Programm dazu: 

ergebnis=SEEKRANK( # l,0,kindex) 
WHILE ergebnis < 102 

PRINT CVUK(FETCHKEY$( # 1)) 
ergebnis=SEEKNEXT( #1,0) 
WEND 

Interessant könnte auch eine Liste der 
Postleitzahlen sein, um zu sehen, in 
welchen Gebieten wir als Händler noch 
keine Kunden haben und deshalb dort 
die Werbetrommel ein wenig heftiger 
rühren müssen. Allerdings würde dann 
bei obigem Verfahren ein und dieselbe 
Postleitzahl, je nach Anzahl der Kun¬ 
den in diesem Ort, mehrfach ausgegeben 
- wo einmal genügen würde! 

Auch daran wurde bei Jetsam gedacht 
Mit 

ergebnis=SEEKSET(Dateinummer, 

Sperrparameter) 

kann von der aktuellen Position aus, der 
nächste abweichende Schlüsselwert ge¬ 
sucht werden. Ebenfalls kann, wie bei 
SEEKNEXT/SEEKPREV, die zweite 
Form verwendet werden. Auch die in 
Ergebnis zurückgegebenen Werte und 
ihre Bedeutung entsprechen denen der 
SEEKNEXT-Funktion, mit Ausnahme 
des Wertes 0, der von SEEKSET nicht 
erzeugt wird. 

Das Programm zum Auflisten der Post¬ 
leitzahlen sieht dann so aus: 
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ergebnis=SEEKRANK< #l,0,pindex) 
WHILE ergebnis <102 

PRINT FETCHKEY$(# 1) 
ergebnis=SEEKSET( # 1,0 
WEND 

Wie zu sehen ist, bietet Jetsam mit Hilfe 
der SEEK-Funktionen, neben dem ein¬ 
fachen Auffinden von Daten, auch eine 
Vielzahl von Möglichkeiten zur sequen¬ 
tiellen Verarbeitung einer indizierten 
Datei. Sortierte Tabellen lassen sich 
einfach erstellen mit auf- oder abstei¬ 
gender Reihenfolge, Begrenzung auf 
Teilbereiche usw. 

Der Vollständigkeit halber soll auch 
nicht unerwähnt bleiben, daß mit 
Jetsam gespeicherte Daten in einer in¬ 
dizierten Datei geän dert oder wieder ge¬ 
löscht werden^önnen. Wer sich die Geld¬ 
ausgabe für ein Datenbankprogramm 
ersparen möchte und lieber Zeit in die 
Programmierung einer eigenen klei¬ 
nen, auf seine Bedürfnisse zugeschnit¬ 
tenen verwenden möchte, hat damit ein 
sehr gutes Werkzeug zur Verfügung. 

Mit Hilfe des Basic-Handbuches, den 
Anregungen aus diesem Artikel, sowie 
etwas Ausdauer, könnten dabei sehr in¬ 
teressante Programme entstehen. 

(MC) 
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GEHIRN 



- ein biochemischer Computer? 


Je weiter die Wissenschaft in das Ge¬ 
heimnis „Gehirn” eindringt, desto klarer 
wird, wie immens kompliziert unser Ge¬ 
hirn arbeitet. Benutzen wir da nicht ein 
Instrumentarium voll ungeahnter Mög¬ 
lichkeiten. Da ist z.B. die Großhirnrinde. 
Ohne ihr Okay geht nichts; sie ist die 
Zentrale. Alle dort ankommenden Reize 
(etwa 1.000.000 Informationen pro 
Sekunde) werden koordiniert, verarbeitet 
und die entsprechenden Maßnahmen ein¬ 
geleitet. 

Doch bevor wir Erkenntnisse aus For¬ 
schungen über die Geheimnisse des 
natürlichen Zusammenspiels unseres 
Gehirns mit dem übrigen Organismus 
erfahren können, müssen wir etwas 
mehr über den eigenartigen Aufbau mit 
seiner geheimnisvollen inneren Struk¬ 
tur aus vielen Milliarden Nervenzellen 
kennenlernen. 

Das Gehirn, der wichtigste Teil des 
zentralen Nervensystems, versah die 
Natur mit besonderen Schutzmecha¬ 
nismen. Es wird von mächtigen Schä¬ 
delknochen umgeben und schwimmt in 
Hirnwasser. Die weiße Hirnsubstanz, 
die auch Myelin genannt wird, bildet 
den Isoliermantel für die Nervenfasern. 
Es überbrückt auch abgestorbene Zel¬ 
len und flickt mit Hilfe von Eiweißen 
und kompliziert aufgebauten Fetten die 
Nervenstränge. Solche Reparaturen 
werden nachts im Schlaf erledigt, wenn 
die ankommenden Informationsfluten 
geringer sind. Es wird vermutet, daß 
Träume auf diese Weise entstehen oder 
zumindest erregt werden. 

Das Gehirn ist der oberste Teil des 
zentralen Nervensystems. Es beinhaltet 
verschiedene Hirnteile: 

Im Endhirn sind die beiden Hälften des 
Großhirns untergebracht. Es ermög¬ 
licht die seelisch-geistigen Leistungen 
des Bewußtseins. Im Zwischenhirn lie¬ 
gen die vegetativen Zentren, und im 
Mittelhirn befinden sich wichtige Um¬ 
schaltstationen. Das Hinterhirn koor¬ 
diniert mit dem Kleinhirn den geord¬ 
neten Bewegungsablauf. Das Nachhirn 
steuert die Atmung sowie Reflexabläufe 
und stellt die Verbindu ng zum Rücken¬ 
mark dar. 

Das Gehirn benötigt pro Minute etwa 
dreiviertel Liter frisches, d.h. mit Sauer¬ 
stoff. Zuckerund Eiweißbausteinen an¬ 


gereichertes Blut. Das sind in einer 
Stunde volle 45 Liter. Um eine solche 
Versorgung zu gewährleisten, müssen 
die hochqualifizierten Nervenzellen 
ununterbrochen gefüttert werden. Da¬ 
fürentwickelten sich ..Dienstleistungs¬ 
zellen", die ständig damit beschäftigt 
sind, Nährstoffe aus Blut aufzunehmen 
und an die Nervenzellen weiterzuge¬ 
ben. Wird die Fütterung für nur fünf¬ 
zehn Minuten ausgesetzt, so stellen sie 
ihre Arbeit ein und sterben ab. In der 
Großhirnrinde arbeiten in sechs Schich¬ 
ten zwischen zehn und und fünfzehn Mil¬ 
liarden von Nervenzellen (einen Pro¬ 
zessor mit so vielen Registern wird es 
wohl nie geben). Die Blutgefäße sind 
dort von solcher Feinheit, daß in einem 
Kubikmillimeter Hirnsubstanz eine 
Gefäßgesamtlänge von einem halben 
Meter untergebracht ist. Das gesamte 
Streckennetz ist mit mehreren hundert 
Millionen sogenannter Synapsen (das 
sind Weichen, Kontrollpunkte und 
Stellwerke) durchsetzt. 

Aufgrund von Schädelverletzungen. 
Tumoren. Infarkten und deren Folgen, 
konnte man eine ziemlich genaue Karte 
zeichnen, wo was im Hirn sitzt. So etwa 
der Kommandostand für die Koordi- 
n tion der Muskeln, für den Flüssig- 
kritshaushalt, das Funktionieren der 
Drüsen im Organismus, welche Region 
für Sehen. Hören, Fühlen etc. zuständig 
ist. Auch der Sitz der Lust und die Fel¬ 
der. in denen sich Emotionen zusam¬ 
menbrauen. wurden lokalisiert (ver¬ 
gleichbar mit den I/O-Bausteinen von 
Computern). 

Tatsache ist, daß alle Impulse und 
Reize nur durch eine Verstofllichung 
vom Gehirn konsumierbar werden. 
Dies wird erreicht, indem zum Beispiel 
eine Aminosäure oder Strom entsteht. 
Im Gehirn sind zwischen 10 und 
mehreren 100 Mikrovolt meßbar. 

Eine Information fließt, wie durch 
Lautsprecherkabel, an einer Ncrvenfa- 
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ser entlang. Als Transportbehälter die¬ 
nen dabei Eiweißkörperchen. Bei der 
ungeheuren Vielfalt von Verknotungen 
der Fasern (Neuriten), stößt dieses 
Päckchen nach Millisekunden an 
Kreuzungen. Dort werden mittels che¬ 
mischer Überträgersubstanzen, den 
Transmittern, die anliegenden Synap¬ 
sen abgefragt, ob Interesse an der Sen¬ 
dung besteht. Nur derjenige, der infor¬ 
mationshungrig ist, gibt ein ent¬ 
sprechendes Zeichen, so daß der 
Informationsfluß wciterlaufen kann 
(bei Computern wird dies Handshake 
genannt). Billionen von Synapsen spie¬ 
len so mit Milliarden von Nervenzellen 
Trage und Antwort’ - ununterbrochen; 
in kaum faßbaren Kombinationen. 


Das Gedächtnis 


Um sich etwas für längere Zeit merken 
zu können, muß das Gehirn bzw. die 
Großhirnrinde auf chemischem Weg 
mit Hilfe von Eiweißbausteinen eine 
Matrix herstellen. Dies dauert etwa 
zwanzig Minuten. Um bei Ausfall eines 
Gehirnteils nicht die gesamte Erinne¬ 
rung zu verlieren, wird diese „Kopie” ei¬ 
ner Erinnerung zerstückelt und auf ver¬ 
schiedene Datenbanken verteilt. Zur 
Verdeutlichung: 

Stellen Sie sich vor. Sie speichern ein 
Bild ab. Dann beinhaltet jedes Teil¬ 
stück das gesamte Bild; allerdings mit 
verringerter Schärfe. 

BEISPIEL: Bilderinnerung 

vollständige Erinnerung 



ein Teil verloren 



zwei Teile verloren 



Doch wird nicht alles abgespeichert, 
denn eine solche große Kapazität dürfte 
selbst für ein Gehirn zu groß sein. Hier 
bedient sich das Gehirn eines Tricks: 
Elemente des Gedächtnisses. 

Eine ankommende Information wird 
nicht einfach entweder behalten oder 
vergessen, sondern sie verweilt in drei 
unterschiedlich langen Speicherstufen. 


Das Ultrakurzzeitgedächtnis 

Alle durch die Sinnesorgane ankom- 
menden Impulse kreisen zunächst ein¬ 
mal in Form elektrischer Ströme und 
Schwingungen in unserem Gehirn, wo 


sie nach zehn bis zwanzig Sekunden 
wieder abklingen. Wenn keine Auf¬ 
merksamkeit vorhanden ist oder wenn 
sich diese Information nicht an den be¬ 
reits bekannten Gedankenverbindun¬ 
gen aufhängen läßt, werden diese Infor¬ 
mationen wieder vergessen. 


Das Kurzzeitgedächtnis 


So kurz die Verweilzeit in unserem 
Ultrakurzzeitgedächtnis auch sein 
mag, sobald wir die Information in¬ 
nerhalb dieser paar Sekunden abrufen 
oder wenn sie irgendwelchen bereits ge¬ 
speicherten Gedächtnisinhalten zu¬ 
geordnet werden können und eine 
Resonanz mit schon vorhandener Erin¬ 
nerung erzeugt wird, können auch die 
neuen Eindrücke vor dem Verlöschen 
gerettet werden. Hier werden diese In¬ 
formationen dann für etwa zwanzig Mi¬ 
nuten gespeichert. 


Das Langzeitgedächtnis 


Wird auf eine Information während der 
Speicherung im Kurzzeitgedächtnis 
zugegriffen, so wird, wie oben schon er¬ 
wähnt, eine Matrix hergestellt. Was so 
verarbeitet ist, bleibt bei uns als soge¬ 
nanntes Langzeitgedächtnis unter gün¬ 
stigen Umständen ein ganzes Leben 
lang gespeichert. 

Doch fast alles bis jetzt beschriebene 
könnte auch ein Computer erledigen. 
Aber was unterscheidet ein Gehirn von 
einem Computer? Es ist die schöpferi¬ 
sche Tätigkeit, das kreative Element un¬ 
seres vielfältigen Gehirns - und damit 
genau die Tätigkeit, zu der ein Com¬ 
puter (noch) nicht fähig ist. Und doch 
entstehen schöpferisches Denken, Ein¬ 
fälle und Intuitionen aus stofflichen, 
also materiell gespeicherten Infor¬ 
mationen. Diese Code-Moleküle sind 
kreuz und quer über der ganzen Groß¬ 
hirnrinde verteilt. Und nur aus diesem 
Grund ist es möglich zu assoziieren 
und zu kreieren - d.h., aus vielen Infor¬ 
mationen völlig neue Sinnesinhalte 
und damit eine schöpferische Idee zu 
erzeugen. (HF) 
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und hier weitere 
Spitzen-Spiele: 


552 D The Amstr. Music System 

553 0 Mini Office 2 (deutsch) 

554 D Macrocosmica 


Zu den Abbildungen 


Tank Busters 
Dark Star 
Spitfire 40 
Skyfox 
Cylu 

Theatre Europe 
Super Sleuth 
Elite (deutsch) 

Dun Darach 
Marsport 
Yie ar Kung Fu 
Desert Rats 
Thing 

Code Name Mat 2 
Working backwards 
Hypersports 


Technician Ted 
Sweevo's World 
Seas of Blood 
The Devils Crown 
Boulder Dash 
Match Point 
Mindshadow 
Starstrike 
Gyroscope 
Trange Loop 


Data Media MAILORDER 


Y Bestellen Sie noch heute, Lieferung erfolgt umgehend I Zahlung per 


Vorkasse oder Nachnahme zuzügl. Porto-bzw. Nabhnahmegebühr 
(Nachnahme ins Ausland ist nicht möglich). 

Weitere Artikel in unserem Gesamtkatalog. Bitte anfordern (2,- DM für Rückporto beilegen). 
_Data Media GmbH -Mailorder- Ruhrallee 55,4600 Dortmund, Tel.: (02 31) 12 50 71-3 


An Adv*nuiro <»Rino by 
Miko Woodroffe And 
Brian Howatth 
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,N KP-810/910: professioneller Matrixdrucker. Schnell: 140 Zeichen/Sek. -.leise; < 60 dB • Schönschrift: Near 
• Quality (NLQ) ■ variabel: frei programmierbarer Zeichensatz • ausbaufähig: Zusatzkarten mit verschiedenen 

t arten/IBM PC-Zeichensatz. KP 810 - 80 Zeichen pro Zeile. KP 910 - 156 Zeichen pro Zeile. TAXAN - denn 
kunft hat bereits begonnen. 


















